For i As Integer = 0 To anArray.Length - 1
            Dim neueZeile As DataRow = ds.Tables(tName).NewRow()
            Dim sp() As String = Split(anArray(i), semi)
            For j As Integer = 0 To sp.Length - 1
                neueZeile(f2(j)) = sp(j)
            Next j
            ds.Tables(tName).Rows.Add(neueZeile)
        Next i

Salzburger