Private Sub readDB()
 
        Dim sql1 As String = "SELECT * FROM Orders Order By OrderID"
        Dim sql2 As String = "SELECT LastName, EmployeeID FROM Employees Order" & _
          "By LastName"
        da1 = New OleDb.OleDbDataAdapter(sql1, conn)
        da2 = New OleDb.OleDbDataAdapter(sql2, conn)
 
        Try
            da1.FillSchema(ds1, SchemaType.Source, "Orders")
            da1.Fill(ds1, "Orders")
            da2.FillSchema(ds1, SchemaType.Source, "Employees")
            da2.Fill(ds1, "Employees")
        Catch ex As System.Exception
            MsgBox("DB read failed: " + ex.ToString())
            Return
        End Try
 
        dt1 = ds1.Tables("Orders")
        dt2 = ds1.Tables("Employees")
 
        dv1 = dt1.DefaultView
        dv2 = dt2.DefaultView
 
        DataGrid1.DataSource = dv1
 
        ComboBox1.DataSource = dv2
        ComboBox1.DisplayMember = "LastName"
        ComboBox1.ValueMember = "EmployeeID"
 
        ComboBox1.DataBindings.Add("SelectedValue", dv1, "EmployeeID")
 
    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