Dim con As New OleDb.OleDbConnection(Prov)
    Dim da As OleDb.OleDbDataAdapter
    Dim ds As New DataSet
    Dim bs As BindingSource
 
 
    Private Sub Laden()
        Dim SQL As String = "SELECT Verbraucher.Bezeichnung As Bez," & _
          "Verbraucher.Bezugsgröße As gr, Verbraucher.Einheit As e," & _
          "Verbraucher.ID, KostenSätze.KostenSatz as ks FROM Verbraucher Left" & _
          "Join KostenSätze On Verbraucher.ID = KostenSätze.Verbraucher_ID"
        da = New OleDb.OleDbDataAdapter(SQL, con)
        da.Fill(ds, "Verbraucher")
        bs = New BindingSource(ds, "Verbraucher")
        DataGridView1.DataSource = bs
    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