Access VisualBasic Script

Sub ImportSpreadsheet()
  DoCmd.TransferSpreadsheet _
    TransferType:=acImport, _
    SpreadsheetType:=acSpreadsheetTypeExcel12, _
    TableName:="Employees", _
    FileName:=CurrentProject.Path & "\Customer.Xls", _
    HasFieldNames:=True
End Sub