set rs=command3.Excute(NULL,NULL,adCmdProc);
if rs.state=1 then              '判断rs是否关闭了,因存储过程中没有记录集,则关闭rs
    if not rs.eof then
        arrayAllData=rs.getrows  '将rs放入一个数组中,因为马上要关闭RS
    else
        error1="没有记录"
    end if
end if
rs.close
set rs=nothigif error1=""
   .....
else
   '没有记录
end if