错误424对象必需访问VBA

Question

我正在尝试在表格中找到第一条记录，其中我的活动字段名称（布尔值）为True（-1）。

在findfirst行上直接出错。请指教。

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("tblinstalments", dbOpenDynaset)

With rs
rs.FindFirst "[Active] = -1"

If rst.NoMatch Then
    MsgBox "No entry found"
End If