Private Sub frmProjekte_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
    strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
      Application.StartupPath & "\daten.mdb"
 
    Dim Con As New OleDb.OleDbConnection(strCon)
    Dim sql As String = "SELECT * FROM Projekte"
 
    da = New OleDb.OleDbDataAdapter(sql, Con)
    Try
        da.Fill(ds, "Projekte")
    Catch ex As System.Exception
        MsgBox(ex.ToString())
        Return
    End Try
    dv = ds.Tables("Projekte").DefaultView
    datProjekte.DataSource = dv
 
    [u]BuildColumns()
End Sub
 
Private Function BuildColumns(ByVal dt As DataTable) As DataGridTableStyle
    Dim ts1 As New DataGridTableStyle()
    Dim dc1 As New DataGridTextBoxColumn()
    Dim dc2 As New DataGridTextBoxColumn()
    Dim dc3 As New DataGridTextBoxColumn()
 
    With ts1
        .MappingName = dt.TableName
        .RowHeadersVisible = False
    End With
 
    dc1.MappingName = "ID"
    dc1.Width = 0
    dc1.ReadOnly = True
 
    dc2.MappingName = "Projekt"
    dc2.Width = 1000
    dc2.ReadOnly = True
 
    With ts1.GridColumnStyles
        .Add(dc1)
        .Add(dc2)
    End With
 
    datProjekte.TableStyles.Clear()
    datProjekte.TableStyles.Add(ts1)
End Function