gdsSet = New DataSet
        gdsSet.Tables.Add(generateTable()) 'Kinder-Tabelle
        gdsSet.Tables.Add(generateGruppen()) 'VaterTabelle
 
 
        drRelation = New DataRelation("relGruppen", gdsSet.Tables( _
          "dtGruppen").Columns("Artikel"), gdsSet.Tables("dtData").Columns( _
          "Artikel"), True)
        gdsSet.Relations.Add(drRelation)

    Private Function generateGruppen() As DataTable
        Dim dtTemp As DataTable
 
        dtTemp = New DataTable
        dtTemp.Columns.Add("Artikel", GetType(String))
        dtTemp.Columns.Add("Anzahl", GetType(Integer), "COUNT(Child(" & _
          "dtData).Artikel)")
        dtTemp.TableName = "dtGruppen"
 
        Return dtTemp
    End Function
 
    Private Function generateTable() As DataTable
        Dim dtTemp As DataTable
        dtTemp = sqlDataTable("SELECT Artikel.AR_Nummer," & _
          "Artikelgruppe.AGR_Bezeichnung, Artikel.AR_Bezeichnung FROM Artikel" & _
          "LEFT JOIN Artikelgruppe ON Artikelgruppe.AGR_Nummer =" & _
          "Artikel.FK_AGR_Nummer")
        dtTemp.Columns.Add("Artikel", GetType(String))
        dtTemp.TableName = "dtData"
 
        Return dtTemp
    End Function