用DAO对象连接数据库，查询数据出了问题，请高人解答？
Option Explicit
Dim db As Database
Dim rs As Recordset
Private Sub Form_Load()
Set db = OpenDatabase(App.Path + "\学生成绩管理表.mdb")
Set rs = db.OpenRecordset("学生成绩表")
End Sub
Private Sub Command1_Click()
Dim strQuery As String
dim i as integer
strQuery = "班级 = " & "'" & 2 & "'"
rs.FindFirst strQuery
i=rs.AbsolutePosition
End Sub
每次运行时总会针对“rs.FindFirst strQuery
i=rs.AbsolutePosition
”跳出“这种对象不支持该操作”错误提示？
请高手解答我的问题？
