Visual Basic para Aplicaciones - Visual Basic y Access

Necesito guardar un registro a otra tabla antes de Eliminarlo de la primera, todo esto lo quiero hacer mediante codigo en visual....

Anexo ejemplo

Dim Copiar As Recordset
Dim dbsName As Database
Set dbsName = OpenDatabase(Data1.DatabaseName)
Set Copiar = dbsName.Recordsets("clientes1", dbOpenDynaset) ' aqui quiero la copia del registro que eliminare despues

>> Aqui es donde necesito el codigo para guardar en el segundo recordset.


Data1.Recordset.Delete ' Elimino del primer recordset
Data1.Recordset.MoveNext

De veras que no entiendo, pero si quieres sacar un registro de la primera Base de Datos e insertarlo en la base de datos de Cliente1, luego de obtener el registro deseado en la primera Base de Datos, haga esto:

With Copiar
.AddNew
!NombreCampo = Valor a insertar
!NombreCampo = Segundo valor
!... = ...
. .
. .
.UpdateTable
End With

Luego borras.