Visual Basic - Problemas con búsquedas

Estoy programando en visual Basic 6.0 y me surge lo siguiente
rstRecibos.FindFirst "COD_PROP = '" & sCodProp & "' AND FECHA = '" & sFec & "'" ' AND NUM_VTO = '" & sNum & "'"
If rstRecibos.NoMatch Then ' No lo encontramos.
sNum = "001"

Else
While Not rstRecibos.NoMatch
sNum = Format(Val(rstRecibos!Num_Vto) + 1, "00#")
rstRecibos.FindNext "COD_PROP = '" & sCodProp & "' AND FECHA = '" & sFec & "'"
Wend
End If
Esto lo hacía en Visual 4.0, pero en visual 6.0 no me deja,lo estoy haciendo con un bucle con while..., pero no hay otra forma de hacer lo mismo , con filter hago lo siguiente :
recordset.filter="campo="&variable pero el mayor ">" o menor que "<" no me funciona.
Por favor me corre prisa.
gracias

No te metas en lios, usa un ciclo do until:

dim tabla as recordeset
do until tabla.eof

if tabla("COD_PRO")=text1.tex and tabla("FECHA")=text2.text and tabla("NUM_VTO")=text3.text THEN
msgbox"Lo encontré"
end if

tabla.movenext
loop

Yo lo haría de la siguiente forma

Rs.requery
Rs.Find "CodProd =" & CvComillas(sCodProd) " AND Fecha=" & sFec ......
if Rs.Eof then 'No lo encontramos