Visual Basic - intecambio de tablas desde bisual

necesito saber como cambiar los registros de una tabla a otra desde bisual

haces una select masiva sobre la tabla. Te mueves al primero y añades con el addnew el mismo registro en la otra tabla.
adodc1.recordset.movefirst
do until adodc1.eof=true
adodc2.recordset.addnew
mueves los campos a la tabla
adodc2.recordset.update
adodc1.recordset.movenext
loop
Espero que esto te ayude