SQL语句查询结果为一数字，赋值给变量（VB）

Question

dim strNum as string
 call openConn
  strnum="select count(ID) from T1"  <------count(ID)是一数字，怎么赋值给strnum呢？strnum定义成数字类型也不行！在这里设置断点时显示"strnum=空值"
  rs.open strnum,cn,1,1
  label1.caption="实到:" & strnum & "人"
call closeConn
望高手赐教！！！

Answer 1

call openConn 
  strnum   
  rs.open ="select count(ID) as id from T1",cn,1,1 
  strnum=rs!id
  label1.caption="实到:" & strnum & "人" 
call closeConn 

Answer 2

  call openConn 
  strnum="select count(ID) as Num from T1"  
  rs.open strnum,cn,1,1 
  label1.caption="实到:" & rs!Num & "人" 
call closeConn 

Answer 3

用了count()最好用上group by 这是个习惯问题