Public Conn1 As new ADODB Connection
Public Conn2 As new ADODB Connection
public Rs1 as new adodb Recordset
public Rs2 as new adodb Recordset
Conn1.open "A"
Rs1.open"select * from b",Conn1
Conn2.open "C"
Rs2.Open "D",Conn2
do while(Rs1!=null)
    Rs2.addnew
    Rs2(0)=Rs1(0)
    Rs2(1)=Rs1(1)
    Rs2.Update
    Rs2.close
loop
Rs1.close
我不知道这个行不行!你试试吧!我是凭感觉写的!试吧!