遁环取ClassID

class表有至少4条符合条件的记录(且可无限添加)
例:
sql="select * from class where parentID="&NClassID
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
classID=rs("classID")
rs.movenext
loop

我应该如何把符合条件行的classID全部赋到同一变量,豆号分割如:classID=1,2,3,4

如果这样子呢:classid=('1','2','3','4')

条件 classid为字符串类型
classID=classID & rs("classID") &","'连接
CLASSid=left(classid,len(classid)-1)'去掉最后一个","

同问。。。