PROBLEMAS con busqueda en base de datos

[Bazooka]

Hola estoy intentando verificar si un registro existe en una base de datos y para eso tengo que chequer 3 valores
EL ID el costo y la fecha que no sea coincidentes los 3  con los valores de busqueda pero no me funcionan juntos me dice que argumentos incorrectos. Aunque si pongo de uno por  separados los 4¡3 criterios funcionan de forma independiente.

Que estoy haciendo mal?

Aclaro que estoy utilizando ADO

esta es la funcion:

 Private Function VerificarSiExiste() As Boolean
Dim cri1 As String, cri2 As String, cri3 As String

    With pa
        .MoveFirst
        cri1 = "ID_PERSONA = " & CInt(txId)
        cri2 = "MONTO = " & txMonto.Text & ""
        cri3 = "fecha = #" & txfecha.Text & "#"
       
       .Find cri1 & " and " & cri2 & " and " & cri3
       
        If .Fields(1) = CInt(txId) Then
            'existe este dato
            VerificarSiExiste = True
        End If
    End With
End Function

[Bazooka]

HAY ALGUIEN AHI???

[YAcosta]

HAY ALGUIEN AHI???

me gustaria ayudarte pero solo lo haria con SQL con ADO no, si te interesa me avisas.

[lucius]

Esta mal tu sintaxis intenta directamente espero no equivocarme coloca las comillas dependiendo el tipo de dato

Código: [Seleccionar]

.Find "ID_PERSONA= '" & CInt(txId) & "' AND MONTO = "" & txmonto.Text & "" AND fecha = #" & txfecha.Text & "#"


[wolf_kof]

te confundiste:

Código: [Seleccionar]

.Find "ID_PERSONA= '" & CInt(txId) & "' AND MONTO = '" & txmonto.Text & "' AND fecha = #" & txfecha.Text & "#"

asi esta bien.