Me parece una cosa fundamental pero no me funciona.
Quiero declarar un array para luego ir metiendo datos en cada posición
dim album()
cont=0
while no objRS.EOF
cont=cont+1
id=objRS("Id_book")
texto=objRS("descripcion")
ancho=objRS("ancho")
alto=objRS("alto")
album(cont)=id&".jpg_"&texto&"_"&ancho&"_"&alto&"_ "
wend
gracias
