请问在VB中怎么把一个数据库中的记录转移到另外一个数据库中？

[Ericsson]

现在有下面2个数据库
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=\\192.168.0.128\server.mdb;"
db2.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\client.mdb;"
我想将db2中表user的记录转移到db中的表user中，请问该怎莫办？
谢谢了

[enhydraboy]

建立两个rs
rs1,rs2,将rs1的内容复制到rs2中去。

db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=\\192.168.0.128\server.mdb;"
db2.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\client.mdb;"

set rs1=new adodb.connection
set rs2=new adodb.connection

rs1.open "select * from table1",db,adopenstatic,adlockreadonly
rs2.open "select * from table2",db,adopendynamic,adlockoptimistic
dim fd ad adodb.field

do while not rs1.eof
rs2.addnew
for each fd in rs1.fields
rs2.fields(fd.name).value=rs1.fields(fd.name).value
next
rs1.movenext
loop

rs2.update

rs1.close
rs2.close

[生活真美好]

gz