数据导出到另一带有密码的数据库

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”导出后的新名称。