For i As Integer = 0 To UBound(anArray)
            Dim neueZeile As DataRow = dataset.Tables(tableName).NewRow()
            Dim sp() As String = Split(anArray(i), semi)
            For j As Integer = 0 To UBound(sp)
                neueZeile(f2(j)) = sp(j)
            Next j
            dataset.Tables(tableName).Rows.Add(neueZeile)
        Next i

Salzburger