'前面的语句省略
'...
conn.open mystrconn
a=1
for i = rownums to rownume
Set rs=Nothing
sql="select ID from table where 姓名='name' "
rs.CursorLocation=3
rs.Open sql,conn
b=rs.RecordCount
在这里要注意,rs.CursorLocation=3,Set rs=Nothing,rs.Open sql,conn的先后顺序。如果顺序不对就容易报错。