怎样用代码新建一个空数据库并把其他数据库（access）中存在的部分表复制过去

[ekekyn]

譬如
现有数据库Db1.mdb中部分表t1、t2、t3
新建一数据库Db2.mdb将t1、t2、t3添加到db2.mdb中

[zyg0]

创建数据库
Dim wrkDefault As Workspace
Dim dbsNew As Database
Dim tdfNew As TableDef
Dim NewDB As Database

If Dir("D:\NewDB.mdb") <> "" Then Kill "D:\NewDB.mdb"
'{取当前目录的话去掉路径： If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb")}
Set wrkDefault = DBEngine.Workspaces(0)
Set dbsNew = wrkDefault.CreateDatabase(App.Path & "\NewDB.mdb", dbLangGeneral, dbEncrypt)
'{取当前目录的话去掉路径： Set dbsNew = wrkDefault.CreateDatabase("NewDB.mdb", dbLangGeneral, dbEncrypt)}

' dbsNew.NewPassword "", "123" '设置数据库密码为123


Set wrkDefault = Nothing
Set dbsNew = Nothing

[zyg0]

表

SELECT * into t1 FROM [;database=c:\DataBase2.mdb].t1
SELECT * into t2 FROM [;database=c:\DataBase2.mdb].t2
SELECT * into t3 FROM [;database=c:\DataBase2.mdb].t3

[ekekyn]

需要引用什么

[zyg0]

dao

[zyg0]

还有ado