我的代码是以下，但却得到错误内容为：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

rs.RecordCount  
建议在使用控件对象时先把最常用和基本的内容熟悉之后再下手。 匆匆下手，不仅容易碰到各种问题，而且后期修改代码工作量可能比重新编写还要大

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

有时间，看看本版的精华篇。
各种使用文档，示例等都有，你需要什么应该都能找到。

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

VB有统计函数吗，有的话可以试试

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
修改为

db.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\jenny\Desktop\liuhua-project\运行程序\db-qestionnare.accdb"
rs.Open "Select * From 人员信息", db, 3, 2
s = rs.RecordCount

 MsgBox (s)

 rs.Close

rs.Open "Select * From 人员信息", db, 3, 2 后面的3,2是有含义的，如果是2,2不可能使用 s = rs.RecordCount 得到总计录

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

这种内容就是入门的，再肤浅的教材都应该是有提到。
蜻蜓点水的恐怕是你的学习。

版主说得对