把记录集中所有数据的 rs("ID") 循环后，如何得到 诸如："22,23,25,26,27,28,29,30,31,32," 这样的字符串

以下方法，把数据集全部读出来了，

set rs=server.createobject( "adodb.recordset ")
sql= "select * from questions "
rs.open sql,conn,3,2

然后，有一个字段是 ID ，

我要怎么循环程序，才能把记录中所有 rs( "ID ") 连成这样的字符串：

"22,23,25,26,27,28,29,30,31,32, "

[解决办法]
<%
str = " "
while not rs.eof
str = str & rs( "ID ") & ", "
rs.movenext
wend
response.write str
%>
[解决办法]
Do While Not rs.EOF
str = str + rs.Fields( "ID ").Value & ", "
Loop
[解决办法]
str = " "
Do While Not rs.EOF
str = str + rs.Fields( "ID ").Value & ", "
rs.MoveNext
Loop