Access - array de imágenes.

Hola a todos, espero que me puedan ayudar, que tengo el problema de un arreglo al cuál guardo imagenes:

tengo el siguiente código


Cuando le saco el for y la trabajo como una variable me funciona muy bien, el problema se hace cuando la convierto en un arreglo, y debo hacerlo para optimizar.

El error que aparece es:

Se ha producido el error '91' en tiempo de ejecución:

Variable de objeto o bloque With no establecido

y luego me marca la linea que ss(j).Picture = "C:\...\yy.bmp", que obviamente es la línea que cumple con la condición para mostrar la imagen

espero que me entiendan y ayuden...gracias

Dim ss(21) As Image
Dim a(12) As Long
Dim b(12) As Long


For J = 1 To 12

If ((a(J) - b(J)) < a(J)) Then

Set ss(J) = New Image

ss(J).Picture = LoadPicture("C:\...\xx.bmp")

ElseIf ((a(J) - b(J)) = a(J)) Then

Set ss(J) = New Image

ss(J).Picture = LoadPicture("C:\...\yy.bmp")

Else

Set ss(J) = New Image

ss(J).Picture = LoadPicture("C:\...\zz.bmp")

End If

Next J

Hola, gracias por responder...pero ahora me aparece otro error , me dice:

Se ha producido el error '429' en tiempo de ejecución:

El componente ActiveX no puede crear el objeto

y luego me marca la linea Set ss(J) = New Image

Cuál será el problema?

Gracias