看了很多贴子，都无法解决这个问题，有的方法很复杂，又 不适用，只想了一招，用最简单的方法来实现，如果各位老师有更好的、更简单方法，请给出最佳方法。代码如下：
从一个数据的表中提取数据插入到另一个数据库的表中方法
Private Sub Command4_Click()
DBEngine.OpenDatabase CurrentProject.Path & "\A.accdb", False, False, ";pwd=" & "123" & "" ' 定义目标数据库的密码
Dim db As Database '定义
Set db = OpenDatabase(CurrentProject.Path & "\A.accdb", False, False, ";pwd=" & "123") '定义目标数据库的密码在操作时,不用再次输入,自动赋予
DoCmd.SetWarnings False ' 执行下面查询时,屏蔽掉提示消息
DoCmd.TransferDatabase acImport, "Microsoft Access", CurrentProject.Path & "\A.accdb", acTable, "AA", "GG", False, False '先生成一张临时表,用来提取数据
txt = "Insert INTO BB Select * FROM GG" '从临时表中提取数据插入到正式表中
DoCmd.RunSQL txt '执行提取数据的追加命令
DoCmd.DeleteObject acTable, "GG" '删除临时表
End Sub
