我有个数据库，数据库里有个叫a的表，表里有几个部门，怎样把这几个部门对应的数量字段里的值求和并放入数组a（i）里

for j=0 to 18
CommandText="select * from a where 所属部门='"&sj(j)&"' and 人员='在编'"
Set RS=Conn.Execute(CommandText)
While Not RS.EOF
a(2*j)=a(2*j)+??
RS.MoveNext
Wend
next
？？代表数量字段里的值，？？应该怎么写啊

大哥们帮帮忙啊

??代表rs("数量")
自己解决问题了