Depende da conexão usada, se for DAO
rsORIGEM.MoveFiirrsst ' duas letras o forum muda p/ MoveMin
Do While Not rsORIGEM Eof
If suacondição Then
rsDESTINO.AddNew
rsDESTINO!CAMPO1 = rsORIGEM!CAMPO1
rsDESTINO.Update
End If
rsORIGEM.MoveNeexxtt ' idem
Loop
Se for ADO, pode fazer da mesma forma, usando tabela, tire somente o Update.
vlu//