Dim tCON = New OleDbConnection(VerbindungsZeichnfolge)
 
        Dim tAD01 = New OleDbDataAdapter("SELECT * FROM tdtAdressen", _
          gTedecConnection)
        tAD01.Fill(tDS, "Adressen")
        Dim tAD02 = New OleDbDataAdapter("SELECT * FROM tdtPersonen", _
          gTedecConnection)
        tAD02.Fill(tDS, "Personen")
        Dim tAD03 = New OleDbDataAdapter("SELECT * FROM tlnkAdressenPersonen", _
          gTedecConnection)
        tAD03.Fill(tDS, "Link")
 
        Dim colParent As DataColumn = tDS.Tables("Adressen").Columns( _
          "idAdressenID")
        Dim colChild As DataColumn = tDS.Tables("Link").Columns("fiAdressenID")
        Dim rel As DataRelation = New DataRelation("AdressenLink", colParent, _
          colChild)
 
        tDS.Relations.Add(rel)
 
        colParent = tDS.Tables("Personen").Columns("idPersonenID")
        colChild = tDS.Tables("Link").Columns("fiPersonenID")
        rel = New DataRelation("PersonenLink", colParent, colChild)
 
        tDS.Relations.Add(rel)
 
        Dim ParentBS As New BindingSource
        ParentBS.DataSource = tDS
        ParentBS.DataMember = "Adressen"
 
        Dim ChildBS As New BindingSource
        ChildBS.DataSource = ParentBS
        ChildBS.DataMember = "AdressenLink"
 
        DataGridView1.DataSource = ParentBS
        DataGridView2.DataSource = ChildBS