codice:
do until rsdatabase1.eof

rsdatabase2.addnew
rsdatabase2("campo1") = rsdatabase1("campo1")
rsdatabase2("campo2") = rsdatabase1("campo2")
rsdatabase2("campo3") = rsdatabase1("campo3")
rsdatabase2("campo4") = rsdatabase1("campo4")
rsdatabase2.update

rsdatabase1.movenext
loop