用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

”跳出“这种对象不支持该操作”错误提示？
请高手解答我的问题？