Tabelle1->Datensatz:
Datensatz_ID   Bezeichnung   Datum 
 
Tabelle2->Datensatz_Daten:
Daten_NR       Daten_ID      Quelle     Ziel

objDataAdapter = New OleDbDataAdapter("SELECT * FROM Datensatz _ 
INNER JOIN Datensatz_Daten ON Datensatz_Daten.Daten_ID = _
Datensatz.Datensatz_ID", objConnection)

Dim objDataTable As New DataTable("Datensatz")
Dim objDataSet As New DataSet
objDataAdapter.Fill(objDataSet, "Datensatz")
objDataTable = objDataSet.Tables("Datensatz")

objDataTable.NewRow()