Public Function Import_TextFile(ByVal sDBFile As String, ByVal fileList As _
  Scripting.Dictionary, tableName As String, mainForm As Form) As Integer
    Dim oAccess As Object   'create Access-Object
    Dim key As Variant
    Dim abort As Boolean
 
    On Error GoTo failImport
 
        Set oAccess = CreateObject("Access.application")
            With oAccess
                .Visible = False
                .OpenCurrentDatabase (sDBFile)
 
                For Each key In fileList
                    ' import textfile into database
                    .DoCmd.TransferText 0, "Default", tableName, key
                    abort = mainForm.get_Abort()
                    If abort = True Then Exit For
                Next
 
                .Quit
            End With
        Set oAccess = Nothing
 
    Exit Function
 
failImport:
    If (err.Number <> 0) Then
        MsgBox err.Description, vbMsgBoxHelpButton, "Fehler", err.HelpFile, _
          err.HelpContext
    End If
    Import_TextFile = err.Number
    oAccess.Quit
    Set oAccess = Nothing
 
End Function