我的程序如下
Set Rs7 = Server.CreateObject("ADODB.Recordset")
Rs7.ActiveConnection = MM_tp1date_STRING
Rs7.Source = "SELECT count(*) FROM votecount WHERE optionID="+(Rs5.fields.Item("OptionID").Value)+""
Rs7.CursorType = 0
Rs7.CursorLocation = 2
Rs7.LockType = 1
Rs7.Open()
total=Rs7.Recordcount
问题1。为什么Rs7.Recordcount返回值总是-1，有人说是没有设置Rs7.Open权限。请问在这里如何设置Rs7.Open权限
问题2。Rs7.Source = "SELECT count(*) FROM votecount WHERE optionID="+(Rs5.fields.Item("OptionID").Value)+"" 运行时出现提示
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: '[string: "SELECT count(*) FRO"]'
明明数据库字段("OptionID").类型是数字，为什么还说类型不匹配。如果我把"+Rs5.fields.Item("OptionID").Value)+"改成1就可以通过。但程序中要的是动态数据。
请教高手帮助解决！！谢谢

set rs= server.createobject("adodb.recordset")
sql="select * from table"

rs.open sql,conn,1,1
这个，1，1就是权限
,1,1为只读
,1,3可修改
,3,3最高权限

你可以用int()强制转化为整型的数字类型

一、我用您讲的把句子改成
"SELECT count(*) FROM votecount WHERE optionID="+Int(Rs5.fields.Item("OptionID").Value)+""
没有用，还是老样子
二、我把句子改成
Set Rs7 = Server.CreateObject("ADODB.Recordset")
Sql="SELECT count(*) FROM votecount WHERE optionID="+(Rs5.fields.Item("OptionID").Value)+""
Rs7 Open Sql ,cnn,1,1
后Rs7 Open Sql ,cnn,1,1这句无法通过
请教，谢谢！

后Rs7 Open Sql ,cnn,1,1这句无法通过
rs7.open sql,cnn,1,1

用rs7.open sql,cnn,1,1出现错误
错误类型：
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/tp1/votestatistic.asp, 第 199 行