Ciao a tutti
Il problema è il seguente: devo riempire un array con i contenuti di un db MySQL

Sintetizzando la procedura è la seguente:
...
carico il recordset in objRS
...
indice=1
redim MioArray(10,4)
Do Until objRS.Eof
MioArray(indice-1,0)=objRS("campo1")
MioArray(indice-1,1)=objRS("campo2")
MioArray(indice-1,2)=objRS("campo3")
MioArray(indice-1,3)=objRS("campo4")
if not objRS.Eof then
indice=indice+1
end if
objRS.movenext
loop

la procedura funziona, ma così facendo devo dichiarare sin dall'inizio che l'array avrà 10 righe
Vorrei invece impostare e gestire dinamicamente l'array.
HJo provato con redim preserve ma da errore e poi ho letto che non va bene per aumentare il numero delle righe.

Avete qualche suggerimento ?
Grazie