Dim BindingSourceMA As BindingSource
    Dim MitarbeiterAdapter As OleDbDataAdapter
    Dim DatenSet As New DataSet
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim VerbindungsZeichnfolge As String = "..."
        Dim sSql As String = "SELECT * FROM Orders"
 
        Dim MitarbeiterConnection As New OleDbConnection(VerbindungsZeichnfolge)
        MitarbeiterAdapter = New OleDbDataAdapter(sSql, MitarbeiterConnection)
 
        MitarbeiterAdapter.Fill(DatenSet, "Orders")
 
        BindingSourceMA = New BindingSource
        BindingSourceMA.DataSource = DatenSet
        BindingSourceMA.DataMember = "Orders"
 
        DataGridView1.DataSource = BindingSourceMA
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist