Busco una función o bucle para ahorrar codigo

[Neuron_376]

Pero no están aprovechando bien el for, creo que seria asi:

'Por lo que veo, tienes 6 espacios fijos, entonces
intEspacios = 6
'Espacios ocupados
intFotos = fotos

'Sabes que tienes que llenarlos todos, ya sea vacio o con valor real.

'For para recorrer todos tus espacios
for i = 1 to intEspacios

if i <= intFotos
'Es un espacio con valor valido

rs.Fields("fotoP" & Cstr(i)) = "r" & ref & "f" & Cstr(i) & "P.jpg"
rs.Fields("fotoG" & Cstr(i)) = "r" & ref & "f" & Cstr(i) & "G.jpg"

else

'Es un espacio con valor vacío
rs.Fields("fotoP" & Cstr(i)) = ""
rs.Fields("fotoG" & Cstr(i)) = ""

end if

next

Algo así es como tendría que ser, revisa la sintaxis y posibles errores, no es un codigo probado, pero esa es la mejor manera de hacerlo.

Suerte!!