怎么一上来就得看“急诊”
下面是创建新数据库的代码:
ConDatTabl="c:\Mydata\My.mdb"
Set ConData = OpenDatabase("c:\Mydata\MyMain.mdb", False, False, ";pwd =" & "12345")
Set ConDataNew = CreateDatabase(ConDatTabl, dbLangGeneral, dbVersion30)  (创建新文件My.mdb)SQL_Data = "select * into Cur_M in '" & ConDatTabl & "' from cur_M order by [中文名称]"
ConData.Execute SQL_Data你可能需要下面的句子(甲、乙两表数据库结构要完全一样)
insert into 甲表 select * from 乙表