VB如何同时在一句代码里面同时操作2个数据库.

Private Sub Command1_Click()

    Dim Cn1 As New ADODB.Connection

'    声明一个新的连接

    Dim Cn2 As New ADODB.Connection

'    声明一个新的连接

    Dim Rst2 As New ADODB.Recordset

'    声明一个新的记录集

    Dim TableExist As Boolean

'    声明一个布尔型变量，用以区分表是否存在

    TableExist = False

    '设置初始值

    Cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"

'    打开第一个连接

    Cn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db2.mdb;Mode=ReadWrite;Persist Security Info=False"

'    打开第2个连接

    

    Set Rst2 = Cn2.OpenSchema(adSchemaTables)

    

    Do Until Rst2.EOF

        If Rst2!TABLE_NAME = "用户表" Then TableExist = True

        Rst2.MoveNext

    Loop



    If TableExist Then Cn2.Execute "Drop TABLE 用户表"



    Cn1.Execute "Select * into " & App.Path & "\db2.mdb.用户表 From 用户表"

    

    

End Sub

Private Sub Command1_Click()

    Dim db1 As Database

    Dim db2 As Database



    Set db1 = OpenDatabase(App.Path & "\a.mdb")



    db1.Execute ("INSERT INTO  [;database=" & App.Path & "\b.mdb;].[员工]([姓名],[性别],[生日]) SELECT [姓名],[性别],[生日] FROM [员工]")







End Sub