search_sql="TAG:R,2;1;3,"&startdt&","&enddt&""
MsgBox "&search_sql is:"&search_sql
cn.connectionstring=SqlCon
cn.Cursorlocation=3
cn.open
MsgBox "constring "
Set rCom=CreateObject("ADODB.Command")
rCom.CommandType=1
Set rCom.ActiveConnection=cn
rCom.CommandText=search_sql
查询的结果是只有id为2的数据