菜鸟请高手帮忙，access两个数据库的数据插入问题

Question

今天做一个数据上报和数据接收的项目，考虑感觉应该新建一个一摸一样的转门做上报数据的数据库。 但是问题又出现了，怎样将数据库B中“表1”的数据插入到数据库A“表1”中呢？ 
小弟在线急等，请高手帮忙，不胜感激！以下是本人的源代码，请高手指教Private Sub CmdInsert_Click()  '开始导入数据
If MsgBox("确实要将这 " & Adodc2.Recordset.RecordCount & "条数据导入吗？", vbYesNo + vbQuestion) = vbYes Then        Data1.Conn.Open
        Data1.Conn.Execute "" '将数据源adoconsb 中的“上报”表中的所有数据插入到“信息采集”表中（高手帮忙的关键）
        Data1.Conn.Close
        Adodc1.RecordSource = "select * from 信息采集"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1.Recordset
End If
End SubPrivate Sub CmdOpen_Click()  ' 打开预导入的数据库数据
CmnDlg.ShowOpen  '打开预导入的数据库
Sbsbk = CmnDlg.FileName  '读取数据库的路径
AdoConsb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Sbsbk & ";Jet OLEDB:Database Password=;Persist Security Info=False" '上报数据的数据源
Adodc2.ConnectionString = AdoConsb
'-------------------------------------------
'显示已打开预备导入的数据反馈给客户确认
Adodc2.RecordSource = "select * from 上报"
Adodc2.Refresh
Set DataGrid2.DataSource = Adodc2.Recordset
'--------------------------------------------
End Sub

Answer 1

Private Sub Command1_Click()
    Dim cn As ADODB.Connection    Set cn = New ADODB.Connection    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\b.mdb;Jet OLEDB:Database Password=b"
    cn.Execute "Select * Into [tbla] From [;database=" & App.Path & "\a.mdb;pwd=a].tbla"    cn.Close
    Set cn = NothingEnd Sub

Answer 2

http://download.csdn.net/source/1498324

Answer 3

select * into[信息采集] from [;Data Source=" & Sbsbk & ";Jet OLEDB:Database Password=;].上报我就是这么做的，可是根本解决不了问题。

Answer 4

忘了告诉lz，
b.mdb 密码：123
a.mdb 密码：1