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