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