Kunde    Kundennummer    Anschrift
Kunde1   12345           Musterweg 1
Kunde2   12346           Musterweg 2

Kundennummer   Bearbeiter
12345          Mitarbeiter1
12346          Mitarbeiter2

 
dim ds1, ds2 As New DataSet
dim da1, da2 As OleDb.OleDbDataAdapter
dim bs As BindingSource
 
da1 = New OleDb.OleDbDataAdapter("SELECT * from AccessDB", Verbindung1)
da2 = New OleDb.OleDbDataAdapter("SELECT * from SQLDB", Verbindung2)
Try
   da1.Fill(ds1, "CValues")
   da2.Fill(ds2, "CValues")
   Catch ex As System.Exception
      MsgBox("Datenbankfehler: " + ex.ToString())
   Return
End Try
ds1.Merge(ds2, True, MissingSchemaAction.Add)
bs = New BindingSource(ds1, "CValues")
DataGridView1.DataSource = bs

Kunde    Kundennummer    Anschrift   Bearbeiter
Kunde1   12345           Musterweg 1 
Kunde2   12346           Musterweg 2 
         12345                       Mitarbeiter1
         12346                       Mitarbeiter2