循环的值赋给数组

[haha_yang1]

SQL2="SElECT * FROM VisaCountryData where Modes='0' and visacountry_id='"&visacountry_id&"'"
Set rs2=conn.Execute(SQL2)
while not rs2.eof
codesmall_id=rs2("codesmall_id")
rs2.movenext
wend

我想把循环的值codesmall_id赋给一个数组，
结果是codesmall_id=codesmall_id，codesmall_id，codesmall_id，codesmall_id

[qiubin200236]

codesmall_id = ""
while not rs2.eof
if trim(codesmall_id)="" then
codesmall_id=rs2("codesmall_id")
else
codesmall_id=codesmall_id & "," & rs2("codesmall_id")
end if
rs2.movenext
wend

[haha_yang1]

谢谢你！我跟你想的一样！我就知道你会回答我，我已经做出来了！真的好谢谢你！