Riempire un'array dinamicamente

[tridi9]

 
i As Integer, ProdoArray As Variant
    i = 0
ReDim ProdoArray(0):quipy: 
rs.Open "TblProdotti", conn

Do Until rs.EOF
    ProdoArray(i) = CStr(rs(0))
    MsgBox ProdoArray(i)
    i = i + 1

rs.MoveNext
Loop

Quando il contatore diventa 1 mi dice che l'indice non è incluso nell'intervallo.
Come faccio a riempire un'array dinamicamente ?

[xegallo]

Originariamente inviato da tridi9

 
i As Integer, ProdoArray As Variant
    i = 0
ReDim ProdoArray(0):quipy: 
rs.Open "TblProdotti", conn

Do Until rs.EOF
    ProdoArray(i) = CStr(rs(0))
    MsgBox ProdoArray(i)
    i = i + 1

rs.MoveNext
Loop

Quando il contatore diventa 1 mi dice che l'indice non è incluso nell'intervallo.
Come faccio a riempire un'array dinamicamente ?

ovvio che ti da errore hai dichiarato un array con un singolo elemento
devi usare un redim preserve ad ogni iterazione del ciclo

[tridi9]

Infatti ma non so come usare redim preserve

[xegallo]

dim i As Integer, ProdoArray() As Variant
i = 0 
rs.Open "TblProdotti", conn
Do Until rs.EOF
    redim preserve ProdoArray(i) as variant
    ProdoArray(i) = CStr(rs(0))
    MsgBox ProdoArray(i)
    i = i + 1
rs.MoveNext
Loop

[tridi9]

Grazie.Farò tesoro.