Name for function or module

DoCmd.SetWarnings False

Filename = "Place the location of file here\Filename here.txt"


DoCmd.TransferText acImportDelim, "If you have an import specification named saved it goes here", "Table name here", Filename, 0


MsgBox "Import is Completed"

DoCmd.SetWarnings True

End Sub