Sub copiarRegistro _
   (dominio As String, _
   regOrigen As Long, _
   regDestino As Long)

   Dim rst As Object 'DAO.Recordset
   Dim numCampos As Integer, i As Integer
   Dim registro As Variant

   Set rst = CurrentDb.OpenRecordset(dominio)

   rst.Move regOrigen - 1
   registro = rst.GetRows(1)

   rst.MoveFirst
   rst.Move regDestino - 1

   rst.Edit
   For i = LBound(registro) To UBound(registro)
      On Error Resume Next
      rst(i) = registro(i, 0)
   Next
   rst.Update

   rst.Close

End Sub

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)