'Encoding UTF7 damit Umlaute mit gelesen werden!
            DateiInhalt = File.ReadAllText(QuellPfad, System.Text.Encoding.UTF7)
 
            Zeile = Split(DateiInhalt, TrennZeichenZeile)
 
            DSAnzahl = Zeile.Length
            DS = 0
 
            '******************************************************************
            ' *****************
            'Text-Daten in die Quell-Tabelle schreiben
            '******************************************************************
            ' *****************
            For DS = 0 To DSAnzahl - 1
 
                Spalte = Split(Zeile(DS), TrennZeichenSpalte)
 
                Dim DR As DataRow
 
                    ' Neue DataRow erzeugen
                    DR = dtImp.NewRow
 
                    'Daten aus dem String in die neue DataRow übernehmen
                    'UpdateDataRow(DR)
                    For SpaltenNr = 0 To Spalte.Length - 1
                        DR.Item(SpaltenNr) = Spalte(0)
                    Next
' ... und neue DataRow an DataTable anfügen
                    dtImp.Rows.Add(DR)
                    ' Neuen Datensatz in DB übernehmen
                    daImp.Update(dtImp)
             next