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
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)