problema con el comando find

[enadoquer]

Tengo la siguientes líneas de código:

adoMmovimientos.Recordset.Find ("tipo_comprobante = '" & txtBtipo_com & "' AND nro_comprobante = " & txtBnro_com.Text), 1

Me da error 3001. No se cual es el problema. yo necesito buscar en dicho recordset el comprobante "x" y para que no existe errores de ingreso lo separe en tipo y nro. Como puedo buscar con dos campos sin que me de ese error. El que me pueda decir que tengo mal se lo voy ha agrader. Le aclaro que lo hago con la misma sentencia pero con un solo campo y no me da el error.

[RootK]

adoMmovimientos.Recordset.Find ("tipo_comprobante = '" & txtBtipo_com & "' AND nro_comprobante = " & txtBnro_com.Text), 1

Porque no intentas con algo como esto:

Dim strFind as string
Dim Intnro as Integer

Intnro = Val(txtBnro_com.Text)
strFind = "tipo_comprobante = '" & txtBtipo_com & "' AND nro_comprobante = " & Intnro

adoMmovimientos.Recordset.Find strFind, 1

Considerando que nro_comprobante es de tipo Integer,

Prueba y me dices que tal te fue...

Saludos

[enadoquer]

lastimosamente me da el error 3001. No se que hacer. Como puedo buscar un registro sin el comando fin. Lo que necesito es buscar el comprobante dentro de los comprobantes cargados. el comando where no me sirve porque no mostraría todos los registros