Private Sub frmProjekte_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
    Dim strCon As String
    Dim da As OleDb.OleDbDataAdapter
    Dim ds As New DataSet()
    Dim dv As DataView
    Dim cm As CurrencyManager
 
    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"
 
    Try
        da.Fill(ds, "Projekte")
    Catch ex As System.Exception
        MsgBox(ex.ToString())
        Return
    End Try
 
    dv = ds.Tables("Projekte").DefaultView
    datProjekte.DataSource = dv
 
End Sub