以下是示例语句：
Dim dbs As Object
Set dbs = DBEngine.Workspaces(0).OpenDatabase("e:\customer\BaseTplt.mdb", _
False, False, ";pwd=LuckStar")
DoCmd.TransferDatabase acImport, "Microsoft access", "e:\customer\BaseTplt.mdb", _
acTable, "仓库", "cBc", False
注1："e:\customer\BaseTplt.mdb"是带密码的数据库完整路径
注2：";pwd=LuckStar"中的LuckStar表示该数据库的密码
