Sub main() DoCmd.TransferText acImportDelim, "CompanyDelimited", "tblCompanyDelimited", _ "C:\Delimited.txt", True MsgBox "Company details imported" End Sub