我的代码是以下，但却得到错误内容为：operation is not allow when the object is open.并标语句“rs.CursorLocation = adUseClient”为黄色，请问哪里的错误？如何改正？谢谢前辈指点。
Private sub
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim s As Long
db.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\jenny\Desktop\liuhua-project\运行程序\db-qestionnare.accdb"
rs.Open "人员信息", db, 2, 2
rs.CursorLocation = adUseClient
s = rs.RecordCount - 1
 MsgBox (s)
 rs.Close
end sub

版主你好，现在VB用的太少了，连书籍都找不到很好的说明，我看的教程也是蜻蜓点水教学。很多知识来网上点滴收集。求版主给个指教，我的这个问题应该怎么解决？

版主可以帮我解决这个问题吗？我已经翻遍帖子了，不仅是这个论坛，但是还是没有解决的问题

谢谢版主，我改了就对哦，版主您太好啦！

版主说得对