Access VisualBasic Script

Sub ImportText()
  DoCmd.TransferText _
    TransferType:=acImportDelim, _
    TableName:="Employees", _
    FileName:=CurrentProject.Path & "\Customer.Txt"
End Sub