popolare una array con db

[waitec401]

io ho questa variabile da popolare

words = Array("cretino","merda","frocio","imbecille")

ora al posto delle parole scritte vorrei popolare la variabile con dei termini che estraggo da una tb di un db, ho pensato a una cosa del genere

Dim i
i=0
Do Until objRs.EOF
Array2(i)=""&objRs("str_parola")&","
i = i + 1
objRs.MoveNext 
Loop

e fare

words = Array("array2")

puo' funzionare?

dato che non ho la possibilità di provarlo!!!