Saludos
Esta puede ser otra manera, mirala, no la he probado puede servir, revisa y corrige si es necesario.
Código:
Function llenado2(foto1,foto2)
for i=foto1 to foto2
rs.Fields("fotoP"&i) = ""
rs.Fields("fotoG"&i) = ""
next
End Function
If fotos = 1 Then
rs.Fields("fotoP1") = "r" & ref & "f1P.jpg"
rs.Fields("fotoG1") = "r" & ref & "f1G.jpg"
envia_foto1=2
envia_foto2=6
operacion = llenado2(envia_foto1,envia_foto2)
end if
La idea es que puedes utilizar una función para ahorrarte mas lineas, unicamente seria cosa de ver como adaptarla.
Suerte