Open DateiName For Input As DateiNr
           Do While Not EOF(DateiNr)
anfang:
 
                If Not EOF(DateiNr) Then Line Input #DateiNr, strLine
                If EOF(DateiNr) Then GoTo weiter
                s = s & strLine
                zahl2 = 0
                stemp = s
                Do While InStr(stemp, "|") > 0
                    stemp = Mid(stemp, InStr(stemp, "|") + 1)
                    zahl2 = zahl2 + 1
                Loop
 
                If zahl2 < 26 Then    'Überprüfung bzgl. Anzahl der Felder pro 
                ' Datensatz
                   GoTo anfang
                   F = 1
                End If
 
weiter:
Debug.Print i & ". Datensatz"
 
strT = Split(s, "|")          's aufteilen -> Felderunterteilung
        If (s = "") Then GoTo schleife
        rs.AddNew
        rs("MySQL_ID") = strT(0)
        rs("kunde_seit") = strT(1)
        'usw.
        rs.Update
schleife:
        s = ""
        zahl2 = 0
        i = i + 1
      Loop        'Äußere Schleife (Datei einlesen)
Close DateiNr