Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Do While Not rsOrigen.Eof rsDestino.AddNew rsDestino.Fields("Campo") = rsOrigen.Fields("Campo") ... rsDestino.Update rsOrigen.MoveNext Loop rsOrigen.Close: Set rsOrigen = Nothing rsDestino.Close: Set rsDestino = Nothing