Hola señores expertos:
Tengo una duda y problema, ya pude copiar una imagen de una carpeta a otra por código, mediante un bucle recorro todos los alumnos, agarro su nombre, lo asocio con el nombre de su foto y la copio a otra carpeta, todos los alumnos los copia, pero al agregar que del mismo alumno me copie una imagen de su curp ya no lo hace, tengo este código:

Do While Not Rs.EOF
On Error Resume Next
If Rs!grado = "3° A" Or Rs!grado = "3° B" Or Rs!grado = "3° C" Or Rs!grado = "3° D" Then
deudor = Rs!foto
Origen = App.Path & "\fotos\" & deudor
destino = ruta & "\" & año & "\"
fso.MoveFile Origen, destino ''''' ésto si lo hace bien, copia la imagen en otra carpeta
regfed = Rs!curp
Origen = App.Path & "\fotos\" & regfed '''' asigna la curp (es una imagen en la misma carpeta)
fso.MoveFile Origen, destino '''''' esto ya no lo hace
End If
Rs.MoveNext
Loop


Ojalá alguien pueda ayudarme a resolver esta duda o darme alguna sugerencia.
GRACIAS de antemano.