Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
        filldatagrid(Me.datagrid, "SELECT ID, Passwort FROM Users", "users")
    End Sub
    Sub fillDataGrid(ByVal dg As DataGrid, ByVal sql As String, ByVal tablename _
      As String)
        Try
            Dim da As OleDb.OleDbDataAdapter
            Dim ds As New DataSet
            Dim dt As New DataTable(tablename)
            da = New OleDb.OleDbDataAdapter(sql, connect)
            da.Fill(dt)
            ds.Tables.Add(dt)
            dg.DataSource = ds.Tables(tablename)
            CreateTableStyle(dg)
        Catch ex As OleDb.OleDbException
            MsgBox(ex.Message)
        End Try
    End Sub
    Function connect() As OleDb.OleDbConnection
        Dim db As String
        Dim conClsf As OleDb.OleDbConnection
        db = Application.StartupPath & "\db.mdb"
        conClsf = New OleDb.OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db)
        conClsf.Open()
        Return conClsf
    End Function
    Private Sub CreateTableStyle(ByVal dg As DataGrid)
        Dim tableStyle As DataGridTableStyle = New DataGridTableStyle
        Dim columnId As New DataGridTextBoxColumn
        Dim columnPass As New DataGridTextBoxColumn
        tableStyle.MappingName = "users" ' DataTable Name
        columnId.MappingName = "ID" ' Feld Id
        columnId.Width = 100
        columnId.HeaderText = "Benutzernummer"
        columnPass.MappingName = "Passwort" ' Feld Passwort
        columnPass.Width = 200
        columnPass.HeaderText = "Passwort des Users"
        tableStyle.GridColumnStyles.Add(columnId)
        tableStyle.GridColumnStyles.Add(columnPass)
        dg.TableStyles.Add(tableStyle)
    End Sub