Access VisualBasic Script

Sub ImportDatabase()
  DoCmd.TransferDatabase _
    TransferType:=acImport, _
    DatabaseType:="dBASE III", _
    DatabaseName:=CurrentProject.Path, _
    ObjectType:=acTable, _
    Source:="Employees", _
    Destination:="tblCustomers", _
    StructureOnly:=False
End Sub