Dim ParentKolonne As DataColumn = cLaufnummernDataTable.Columns("ID")
        Dim ChildKolonne As DataColumn = cVariantenDataTable.Columns( _
          "fiLaufnummer")
        cDataSet.Relations.Add("Laufnummern_Varianten", ParentKolonne, _
        ChildKolonne)
 
        'Relation 
        ParentKolonne = cVariantenGruppeDataTable.Columns("ID")
        ChildKolonne = cVariantenDataTable.Columns("fiVariantengruppe")
        cDataSet.Relations.Add("Variantengruppe_Varianten", ParentKolonne, _
          ChildKolonne)
 
        'Laufnummern Tabelle festlegen
        cLaufnummernBS.DataSource = cDataSet
        cLaufnummernBS.DataMember = cLaufnummernDataTable.TableName
        dgvDaten.DataSource = cLaufnummernBS
 
        'Varianten Tabelle festlegen
        cVariantenBS = New BindingSource(cLaufnummernBS, _
          "Laufnummern_Varianten")
        'cVariantenBS.DataSource = cLaufnummernBS
        'cVariantenBS.DataMember = "Laufnummern_Varianten"
        dgvVarianten.DataSource = cVariantenBS
 
 
        cVariantenGruppeBS.DataSource = cVariantenBS
        cVariantenGruppeBS.DataMember = "Variantengruppe_Varianten" <- Fehler!!