Dim myOleDbConnection As New OleDb.OleDbConnection
    Dim myOleDbSelectCommand As New OleDb.OleDbCommand
    Dim myOleDbDataAdapter As New OleDb.OleDbDataAdapter
    Dim myDataSet As New DataSet
 
 
     Public Sub Kunden_Load(sender As System.Object, e As System.EventArgs) _
       Handles MyBase.Load
 
        ' Verbindung zur Datenbank herstellen
        myOleDbConnection.ConnectionString = ( _
          "Provider=Microsoft.ACE.OLEDB.12.0; " & "Data Source=DATENBANKPFAD")
 
        Try
            myOleDbConnection.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message, _
                "Beim Öffnen der Datenbank ist ein Fehler aufgetreten.")
        End Try
 
        ' SelectCommand erstellen welches die "Select-Abfrage" gegen die
        ' Datenbank beinhaltet
        myOleDbSelectCommand.Connection = myOleDbConnection
        myOleDbSelectCommand.CommandText = "select * from tbl_Kunden"
 
        ' DataAdapter mit dem SelectCommand verbinden
        myOleDbDataAdapter.SelectCommand = myOleDbSelectCommand
 
        ' und mit dem DataAdapter das DataSet füllen
        myOleDbDataAdapter.Fill(myDataSet, "tbl_Kunden")
 
        ' Daten an das DataGridView binden
        dgvKunden.DataSource = myDataSet
        dgvKunden.DataMember = "tbl_Kunden"
 
 
 
        'Und hier sollte die Anbindung vom Navigator hergestellt werden:
        bsKunden.DataMember = "tbl_Kunden"
        bsKunden.DataSource = myDataSet
 
 
        bnavKunden.BindingSource = bsKunden
 
    End Sub]