Visual Basic - BUSCAR POR NUMERO

que tal molestandolos de nuevo

me gustaria saber como le hago para hacer una busqueda por numero

tengo la busqueda pero solo me acepta texto mi codigo es el siguiente

BUSCADO = InputBox("NOMBRE DE CLIENTE A BUSCAR")
If BUSCADO = "" Then Exit Sub
CRITERIO = "RZ_SOCIAL LIKE '*" & BUSCADO & "*'"

Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find CRITERIO
End If

If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find CRITERIO

If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox ("NO SE ENCONTRO ESE CLIENTE")
End If
End If

que tengo que hacer para que busque pero por numero

deantemano muchas gracias

att: pako montaño

En las comparaciones con números, en Adodc, no te convien usar LIKE sino "=", y no se ponen las comillas simples. Veo que tenés unos asteriscos. ¿Los estás usando como comodines? Mirá que el carácter comodín para ADO no es el asterisco sino el porciento (%).