Visual Basic - como copiar los....

como copiar en DAO los registros de una tabla a otra

Dim Bdd as database,Tabla1 as recordset,tabla2 as recordset
set Bdd=opendatabase("Nombre")
set Tabla1=Bdd.openrecordset("NomTabla1")
set Tabla2=Bdd.openrecordset("NomTabla2")
do Until tabla1.eof
tabla2.addnew
tabla2!Campo1=tabla1!Campo1
tabla2!Campo2=tabla1!Campo2
........
tabla2.update
tabla1.movenext
loop

Posiblemente sea menos laborioso en SQL