recordset/recordcount com criterio

Pessoal eu aqui novamente com minha insistencia, estou tentando aproveitar o código do mestre JPaulo para contar utilizando criterio porem esta apresentando erro informando "parametros insuficientes"

alguem pode me ajudar?

agradeço de todo modo

Private Sub Form_Current()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim exiberesultado As String
'Abre a base de dados
Set db = DBEngine.OpenDatabase("C:\Users\Marcelo\Desktop\segor_bd\segor_be")
'Abre o Recordset
Set rs = db.OpenRecordset("SELECT * FROM TabInformacao where pessoa= Forms!FormPessoa!codigo_pessoa", dbOpenDynaset)

On Error Resume Next

rs.MoveLast
rs.Bookmark = frmnome.Bookmark

If (Err <> 0) Then
exiberesultado = rs.RecordCount + 1 & " de " & rs.RecordCount + 1
Else
exiberesultado = rs.AbsolutePosition + 1 & " de " & rs.RecordCount
End If

txtTotal = exiberesultado

Bom dia,
Coloque
Set rs = db.OpenRecordset("SELECT * FROM TabInformacao where pessoa=" & Forms!FormPessoa!codigo_pessoa, dbOpenDynaset)

Alexandre bom dia, agradeço a ajuda

o erro persiste

Erro em tempo de execução '3061'

parametros insuficientes , eram esperados 1.

Verifique o nome dos campos e tipo de dados