Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
        Me.FillDataGrid()
    End Sub
    Sub FillDataGrid()
        Try
            Dim db As String
            Dim conClsf As OleDb.OleDbConnection
            Dim da As OleDb.OleDbDataAdapter
            Dim ds As New DataSet
            Dim dt As New DataTable("users")
            db = Application.StartupPath & "\db.mdb"
            conClsf = New OleDb.OleDbConnection( _
              "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db)
            conClsf.Open()
            da = New OleDb.OleDbDataAdapter("SELECT ID, Passwort FROM Users", _
              conClsf)
            da.Fill(dt)
            ds.Tables.Add(dt)
            With DataGrid1
                .DataSource = ds.Tables("users")
                CreateTableStyle(Me.DataGrid1)
            End With
        Catch ex As OleDb.OleDbException
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub CreateTableStyle(ByVal dg As DataGrid)
        Dim tableStyle As DataGridTableStyle = New DataGridTableStyle
        Dim columnId As New DataGridTextBoxColumn
        Dim columnPass As New DataGridTextBoxColumn
 
        ' Style für Tabelle "users"
        tableStyle.MappingName = "users" ' DataTable Name
 
        ' Style für Spalte ID
        columnId.MappingName = "ID" ' Feld Id
        columnId.Width = 100
        columnId.HeaderText = "Benutzernummer"
        ' Style für Spalte Passwort
        columnPass.MappingName = "Passwort" ' Feld Passwort
        columnPass.Width = 200
        columnPass.HeaderText = "Passwort des Users"
 
        ' Style hinzufügen
        tableStyle.GridColumnStyles.Add(columnId)
        tableStyle.GridColumnStyles.Add(columnPass)
 
        ' dem dg as fertiges style hinzufügen
        dg.TableStyles.Add(tableStyle)
    End Sub