ciao a tutti...

ho un array che attraverso il redim lo ridimensiona a 1 elemento

codice:
dim ArrayPercorso
arrayPercorso=array()
i=0
if recset("percorso")<>"" then
 redim Preserve ArrayPercorso(1)
 ArrayPercorso(i)=recset("percorso")
end if
poi dopo faccio un ciclo for

codice:
for i=0 to ubound(ArrayPercorso)
next
pero mi gira due volte nel form...non dovrebbe girare solo una volta?
(visto che redim di 1 mi dovrebbe dare un array di 1 elemento)

grazie a tutti...