codice:
 
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 ?