Dim VerbindungsZeichnfolge As String = "Provider=Microsoft.Jet.OleDb.4.0;Data" & _
   "Source=...\Meine DB.mdb"
        Dim sSql As String = "SELECT * FROM taddMitarbeiter"
        'Connection öffnen
        MitarbeiterConnection = New OleDbConnection(VerbindungsZeichnfolge)
        MitarbeiterConnection.Open()
        'Command öffnen
        MitarbeiterCommand = New OleDbCommand(sSql, MitarbeiterConnection)
        ' ''Adapter öffnen
        MitarbeiterAdapter = New OleDbDataAdapter(MitarbeiterCommand)
        MitarbeiterDataSet.Tables.Add(MitarbeiterTabelle)
 
        Dim DatenSet As DataSet = New DataSet("Mitarbeiter")
        MitarbeiterAdapter.Fill(DatenSett)
 
        Dim BindingSourceMA As New BindingSource
        BindingSourceMA.DataSource = Datensat
 
        DataGridView1.DataSource = BindingSourceMA 
        DataGridView1.DataMember = "taddAnrede"