Busco una función o bucle para ahorrar codigo

[mrgubu]

ok, gracias amigos. Me ha servido de gran ayuda. AL final he hecho lo siguiente:

Código:

'Bucle para insertar automáticamente el nombre de las fotos
If fotos = 1 Then

	rsAdd.Fields("fotoP1") = "r" & ref & "f1P.jpg"
	rsAdd.Fields("fotoG1") = "r" & ref & "f1G.jpg"

	i= 2
	For i = 2 to 6
	rsAdd.Fields("fotoP"&i) = "e"
	rsAdd.Fields("fotoG"&i) = "e"
	Next

Elseif fotos = 2 Then

	i= 1
	For i = 1 to 2
	rsAdd.Fields("fotoP"&i) = "r" & ref & "f" & i & "P.jpg"
	rsAdd.Fields("fotoG"&i) = "r" & ref & "f" & i & "G.jpg"
	Next

	i= 3
	For i = 3 to 6
	rsAdd.Fields("fotoP"&i) = "e"
	rsAdd.Fields("fotoG"&i) = "e"
	Next


Elseif fotos = 3 Then

	i= 1
	For i = 1 to 3
	rsAdd.Fields("fotoP"&i) = "r" & ref & "f" & i & "P.jpg"
	rsAdd.Fields("fotoG"&i) = "r" & ref & "f" & i & "G.jpg"
	Next

	i= 4
	For i = 4 to 6
	rsAdd.Fields("fotoP"&i) = "e"
	rsAdd.Fields("fotoG"&i) = "e"
	Next

Elseif fotos = 4 Then

	i= 1
	For i = 1 to 4
	rsAdd.Fields("fotoP"&i) = "r" & ref & "f" & i & "P.jpg"
	rsAdd.Fields("fotoG"&i) = "r" & ref & "f" & i & "G.jpg"
	Next

	i= 5
	For i = 5 to 6
	rsAdd.Fields("fotoP"&i) = "e"
	rsAdd.Fields("fotoG"&i) = "e"
	Next

Elseif fotos = 5 Then

	i= 1
	For i = 1 to 5
	rsAdd.Fields("fotoP"&i) = "r" & ref & "f" & i & "P.jpg"
	rsAdd.Fields("fotoG"&i) = "r" & ref & "f" & i & "G.jpg"
	Next

	rsAdd.Fields("fotoP6") = "e"
	rsAdd.Fields("fotoG6") = "e"

Elseif fotos = 6 Then

	i= 1
	For i = 1 to 6
	rsAdd.Fields("fotoP"&i) = "r" & ref & "f" & i & "P.jpg"
	rsAdd.Fields("fotoG"&i) = "r" & ref & "f" & i & "G.jpg"
	Next

End If

¿hay alguna forma mejor de hacerlo?