cLaufnummernDataTable = TabelleAdd("qrdLaufnummern")
        cVariantenDataTable = TabelleAdd("qrdVarianten")
        cVariantenGruppeDataTable = TabelleAdd("qrdVariantengruppe")
 
        cDataSet.Tables.Add(cLaufnummernDataTable)
        cDataSet.Tables.Add(cVariantenDataTable)
        cDataSet.Tables.Add(cVariantenGruppeDataTable)
 
        'Relation
        Dim ParentKolonne As DataColumn = cLaufnummernDataTable.Columns("ID")
        Dim ChildKolonne As DataColumn = cVariantenDataTable.Columns( _
          "fiLaufnummer")
        cDataSet.Relations.Add("Laufnummern_Varianten", ParentKolonne, _
        ChildKolonne)
 
        cLaufnummernBS.DataSource = cDataSet
        cLaufnummernBS.DataMember = cLaufnummernDataTable.TableName
        dgvDaten.DataSource = cLaufnummernBS
 
        cVariantenBS.DataSource = cLaufnummernBS
        cVariantenBS.DataMember = "Laufnummern_Varianten"
        dgvVarianten.DataSource = cVariantenBS
 
 
        ParentKolonne = cVariantenGruppeDataTable.Columns("ID")
        ChildKolonne = cVariantenDataTable.Columns("fiVariantengruppe")
        cDataSet.Relations.Add("Variantengruppe_Varianten", ParentKolonne, _
          ChildKolonne)
 
 
        cVariantenGruppeBS.DataSource = ???
        cVariantenGruppeBS.DataMember = "Variantengruppe_Varianten"
        dgvVariantengruppe.DataSource = cVariantenGruppeBS