Access VisualBasic Script

Sub transfer()
    DoCmd.TransferDatabase acImport, "Microsoft Access", _
          "C:\mydb.mdb", acTable, "tblI", "tblI"
End Sub