Visual Basic - Boton buscar en vb6

Hola, tengo este codigo que funciona perfectamente buscando los datos que estan dentro del campo "nombre" que es de tipo caracter en una tabla que ise en acces. Lo que quiero aser es modificar el codigo para que me muestre los datos pero pidiendo el codigo llamando al campo "codigo" el cual es de tipo entero largo. Ise algunas modificaciones pero no me funcionan. EL codigo tal cual es para buscar por nombre es este:

Private Sub Buscar_Click()

Dim Buscando As String, Criterio As String
Buscando = InputBox("¿Que nombre quieres buscar?")
If Buscando = " " Then Exit Sub

Criterio = "nombre_estudiante like '*" & Buscando & "*'"

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 encuentro ese nombre")
End If
End If

Por favor ayudenme para poder buscar pidiendo el codigo.

Mira que he leido ( y contestado ) burradas en este foro. punto

pero es que esta ya se pasa

saludos y suerte!

El Like es para encontrar algo parecido como "mien" en "Comiendo", pero los numéricos solo pueden ser "=", ">" o "<", cambia el Like por igual y a lo mejor encuentras algo, y por supuesto quita las comillas de Buscando.