Olá, amigos!

Por favor, elaborei o código abaixo, o qual apresenta o erro descrito ao final desta postagem. Não consigo desencalhar dele. Alguém pode me ajudar?
O código seria para efetuar uma pesquisa em um banco de dados access.

Private Sub cmdConsulta_Click()

Dim rsConsulta As Recordset
Dim sql As String
 
    
    sql = "select * from Recrutamento where 1=1 "
    
    If (cboOpcao.ListIndex > -1) Then
        If (cboOpcao.ListIndex = 0) Then
            sql = sql & "and" & cboOpcao.Value & "=" & txtOpcao.Text & " "
        Else
            sql = sql & "and" & cboOpcao.Value & " like '" & txtOpcao.Text & "*' "
        End If
        End If
        
    If (Trim(txtPNome.Text) <> "") Then
        sql = sql & "and & Nome_Candidato like '" & txtPNome.Text & "*' "
        
        End If
        
        sql = sql & "order by Nome_Candidato "
        Set rsClientes = Conexao.OpenRecordset(sql, dbOpenDynaset)
      
    Do Until (rsConsulta.EOF)
        Set ITEM = lstConsulta.ListItems.Add(, , rsClientes!Código)
        ITEM.SubItems(1) = rsConsulta!SMO
        rsConsulta.MoveNext
        
        Loop
 
End Sub

Erro: "Variável Object ou with bloco variável não definida"
Anexo a planilha, o BD não conseguir anexar.

Desde já agradeço.