problema con el comando find

[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