Erro '3061'

Bom, não conheço muito access e ainda não tenho grandes conhecimentos com VBA, mas enfim... Esse erro começou depois que coloquei o código abaixo, espero que consigam resolver.

Código:

Private Sub txt_cargo_LostFocus()

sql = "select * from tb_cargos where cargo = '" & txt_cargo & "'"
validar_leitura
If rs.EOF = False Then
   txt_partido.SetFocus
    
Else
        
    MsgBox ("Cargo não encontrado"), vbCritical + vbOKOnly, "ERRO"
    
End If
End Sub

O depurador marca o erro nisso:

Código:

Public Function validar_leitura()

Set rs = db.OpenRecordset(sql, dbOpenDynaset)

End Function

Faça as alterações conforme a baixo e tente novamente,

Código:


Private Sub txt_cargo_LostFocus()

sql = "select * from tb_cargos where cargo = '" & txt_cargo & "'"
Set rs = db.OpenRecordset(sql, dbOpenDynaset)

If rs.EOF = False Then
   txt_partido.SetFocus
Else
    MsgBox ("Cargo não encontrado"), vbCritical + vbOKOnly, "ERRO"
End If

rs.close
set rs = nothing

End Sub