On Error GoTo failImport
 
        Set oAccess = CreateObject("Access.application")
 
            With oAccess
                .Visible = False
                .OpenCurrentDatabase (sDBFile)
 
                For Each key In fileList
                    abort = mainForm.get_Abort()
                    If abort = True Then Exit For   'Abbruchbedingung
                    ' import textfile into database
                    .DoCmd.TransferText 0, "Default", tableName, key
                Next
 
                .CloseCurrentDatabase
 
            End With
 
        Set oAccess = Nothing
 
    Import_TextFile = err.Number
 
    Exit Function
 
failImport:
    If (err.Number <> 0) Then
        MsgBox err.Description, vbMsgBoxHelpButton, "Fehler", err.HelpFile, _
          err.HelpContext
    End If
    Import_TextFile = err.Number
 
    oAccess.CloseCurrentDatabase
    Set oAccess = Nothing