VB: Mettere in un array il risultato di una query

[DeBe99]

Dim Arr() as string
Dim x as integer

x=0
redim Arr(RS.RecordCount)   'Ridimensiono array
While not RS.EOF
   Arr(x)=rs(0)
   RS.MoveNext
   x=x+1
Wend