'Verbindung zur Datenbank aufbauen
        'Connectionstring zuweisen
        Data.ConnectionString = constring
 
        'Datenquelle öffnen
        Data.Open()
 
        'Der Variable MyData ein neues Dataset zuweisen
        MyData = New DataSet
 
        'Einen DataAdapter erstellen und ersten SELECT Command ausführen
        Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM Tab_Kind", Data)
 
        'Erste Tabelle in das DataSet laden
        DA.Fill(MyData, "Tab_Kind")
 
        'SELECT Command für Zweite Tabelle zuweisen
        DA.SelectCommand.CommandText = "SELECT * FROM Tab_Kind_Essen"
 
        'Zweite Tabelle in Dataset laden
        DA.Fill(MyData, "Tab_Kind_Essen")
 
        'Nachdem Tabellen geladen wurde, Verbindung trennen.
        Data.Close()
 
        'Relation zwischen Datenbanken im Dataset herstellen
        'Tab_Kind.ID <-> Tab_Kind_Essen.FK_Kind
        MyData.Relations.Add("KindEssen", MyData.Tables( _
          "Tab_Kind_Essen").Columns("FK_Kind"), MyData.Tables( _
          "Tab_Kind").Columns("ID"))