Error in Imporing text file to access table (1 Viewer)

Public Function ImportCampaignData(sFileName As String, sSpecName As String, CampaignId As Integer, sFileType As Long) As Boolean

  '  On Error Resume Next

    ' Excel Objects
    Dim oExcelApp               As Excel.Application
    Dim oWorkSheet              As Worksheet
    Dim sExcelFileName          As String
    Dim rs                      As Recordset
    Dim oFS                     As FileSystemObject
    Dim sCustomersAdded         As String
    Dim sCustomersUdpated       As String
    Dim sLeadsAdded             As String
    Dim sErrorMessage           As String
    Dim db                      As Database
    
    ImportCampaignData = False
    
    Set db = CurrentDb
        'Remove the previous import data just in case it exists
        DoCmd.SetWarnings False
        Forms("frm_LM_ImportLeads").lblProgress.Caption = "Deleting Campaign Import.."
        Forms("frm_LM_ImportLeads").Repaint
        ClearDataFromTable "tbl_LM_Import_Mas_Campaign"
 
        Forms("frm_LM_ImportLeads").lblProgress.Caption = "Loading Campaign Import.."
        Forms("frm_LM_ImportLeads").Repaint
            ' Import the data
       ' Err.Clear
        
        DoCmd.TransferText acImportDelim, sSpecName, "tbl_LM_Import_Mas_Campaign", GFilePath & "\" & sFileName, False

SELECT * FROM MSysIMEXColumns 

SELECT * FROM MSysIMEXSpecs