Unire valori in una sola variabile

[Shagrat]

dim arr (100)
i=0

redim arr (rs.recordcount)

do until rs.eof
   arr(i)=rs("nomecampo")
   i = i+1
   rs.movenext
loop

dovrebbe andare