Public Sub SpaltennamenÄndern()
...
'Erste Zeile der Textdatei einlesen
Dim F As Integer
Dim sLine As String
Dim sData() As String
 
F = FreeFile
Open sFile For Input As #F
sData = Split(sLine, ";")
 
Dim i As Integer, i2 As Integer
Db.Execute ("CREATE TABLE Cabe(FirstOne VARCHAR(255));")
 
If SpaltU = True Then
    i = 1
    i2 = 0
    For i = 1 To SPAz
        'Spalten einlesen
        If IsNull(sData(i2)) Or sData(i2) = "" Then
            SpaltenUB(i) = "Feld" & i
            GoTo FieldOK
        End If
 
        SpaltenUB(i) = sData(i2)
        Dim AFD As String
        AFD = SpaltenUB(i)
        On Error GoTo FieldOK
        Db.Execute ("ALTER TABLE Cabe ADD [" & AFD & "] VARCHAR(55);")
        GoTo FieldOK
 
FieldFalse:
        SpaltenUB(i) = "Feld" & i
        GoTo FieldOK
 
FieldOK:
        LetzterDS(i) = "Feld" & i
        i2 = i2 + 1
    Next i
    MsgBox "Es kann sein, das einige Spaltennamen nicht verwendet werden" & _
      "können!", vbOKOnly + vbInformation, "Spaltennamen"
Else
    ...
End If
End Sub