DateiName = OptionenTab("Pfad für Daten-Datei")
DateiNr = FreeFile
X = 1
zahl = 0
s = ""
felder = 26
      'Gesamte Datei einlesen nach s
      Open DateiName For Input As DateiNr
           Do While Not EOF(DateiNr)
                Line Input #DateiNr, strLine
                s = s & strLine
           Loop
      Close DateiNr
 
strT = Split(s, "|")          's aufteilen -> Felderunterteilung
While X <> 0
    X = InStr(X + 1, s, "|")  'Nach Trennzeichen | aufteilen
    zahl = zahl + 1             'Zahl der Elemente ermitteln
Wend
zahl = zahl - 1                  'da Wert um 1 zu hoch, künstlich um eins 
' erniedrigen
 
For Y = 0 To (zahl / felder) - 1  'Für alle Datensätze
    If (Not rs.EOF) Then
        rs.AddNew
        rs("MySQL_ID") = strT(Y * felder)
        rs("kunde_seit") = strT(Y * felder + 1)
        rs("username") = strT(Y * felder + 2)
        'usw.  (der Übersichtlichkeit halber weggelassen)
        rs.Update
    End If
Next Y

strT = Split(s, "|")