Dim dbs As Object
Set dbs = DBEngine.Workspaces(0).OpenDatabase("d:\aaa\db1.mdb", False, False, ";pwd=123456")
DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\aaa\db1.mdb", acTable, "表1", "表1吧", False
注:“d:\aaa\db1.mdb” 是有密码的数据库的完整路径;
“123456” 是该数据库的密码;
“表1” 是要导出的表名称;
“表1吧”是“表1”导出后的新名称。