Dim sql1 As String = "SELECT * FROM Customers"
            Dim sql2 As String = "SELECT * FROM Orders"
 
            da1 = New OleDb.OleDbDataAdapter(sql1, conn)
            da2 = New OleDb.OleDbDataAdapter(sql2, conn)
            Try
                da1.Fill(ds, "Customers")
                da2.Fill(ds, "Orders")
            Catch ex As System.Exception
                MsgBox("DB read failed: " + ex.ToString())
                Return
            End Try
            dt1 = ds.Tables("Customers")
            dv1 = dt1.DefaultView
 
            dt2 = ds.Tables("Orders")
            dv2 = dt2.DefaultView
 
            ds.Relations.Add("CustomersToOrders", dt1.Columns("CustomerID"), _
              dt2.Columns("CustomerID"))
            DataGrid1.AllowNavigation = False
            DataGrid1.DataSource = dv1
            Dim cb As New OleDb.OleDbCommandBuilder(da1)
            cm1 = CType(BindingContext(dv1), CurrencyManager)
 
            DataGrid2.DataSource = dv1
            DataGrid2.DataMember = "CustomersToOrders"

________
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