'CSV-Files lesen
        ds.Tables.Add(LoadCSV("E:\csv\csv22.csv"))
 
        If Not ds.Tables.Count = 1 Then
            MessageBox.Show("Eine Datei konnte nicht gelesen werden")
            Exit Sub
        End If
 
        'Datarelation 
        Dim dr As New DataRelation("Artikel", ds.Tables(0).Columns("SP_4"), _
          ds.Tables(0).Columns("SP_5"), False)
        ds.Relations.Add(dr)
 
        'Spalten in Ausgabedatei erstellen
        dtout = New cDataTableCSV
        dtout.Columns.Add("SP_0") : dtout.Columns.Add("SP_1")
        dtout.Columns.Add("SP_2") : dtout.Columns.Add("SP_3")
        dtout.Columns.Add("SP_4")
 
        Try
            'Schleife über csv1-Zeilen (=Parent)
            For Each prow As DataRow In ds.Tables(0).Rows
                'per Relation zugeordnete Childrow in csv 
                For Each crow As DataRow In prow.GetChildRows(dr)
                    'Ausgabedatensatz aufbauen
                    Dim orow As DataRow = dtout.NewRow
                    orow("SP_0") = "End"
                    orow("SP_1") = "test"
                    orow("SP_2") = "NotAvailable"
                    orow("SP_3") = crow("SP_4")
                    orow("SP_4") = crow("SP_5")
                    dtout.Rows.Add(orow)
                    TextBox1.AppendText(CStr(orow("SP_1")) & _
                      Microsoft.VisualBasic.vbCrLf)
                Next crow
                'End If
            Next prow
        Catch ex As Exception
            MessageBox.Show("Abbruch - Fehler: " & ex.Message)
            Exit Sub
        End Try