Visual Basic - copiar Recorset

En un for tengo varios Tex t y varios DataCombo
en los cuales e muestran los datos de un recorset de una base de datos Access

Como puedo copiar todos los campos del Recorset en otro Recorset.

En una nueva linea de la base de datos Access.

Saludos

Para copiar de recordset a recordset, recorre el fuente uno por uno y al destino vele agregando, supongo que ambos tienen los mismos campos...

For i = 1 to RsFuente.RecordCount
RsFuente.AbsolutePosition = i
RsDestino.AddNew
RsDestino("campo1") = RsFuente("campo1")
......
RsDestino("campon") = RsFuente("campon")
RsDestino.Update
Next i

Ahora para copiar toda una tabla a otra tabla, dentro de la misma conexion.

Conexion.Execute "insert into destino select * from fuente"

Donde CONEXION es un ADODB.CONNECTION, en esta sentencias también puedes incluir filtros, para que solamente ciertos registros sean los que se copien de una tabla a otra.