Bases de Datos - BUSCAR con ADO

Hola amigos, estoy haciendo un programa en VB,estoy usando ADO para conectar la base de datos de access..el problema que tengo es que no me funciona el boton de buscar...alguien me puede ayudar...por fa'
este es el codigo del boton de "BUSCAR"

Private Sub Command2_Click()
Dim COMILLAS As String
Dim FUENTE As String
Dim CRITERIO As String
COMILLAS = Chr$(34)
20 FUENTE = InputBox("Teclea el tambo a modificar", "busqueda")
lon = Len(FUENTE)
If FUENTE = "" Then Exit Sub
If lon <> 5 Then
MsgBox ("Debes introducir un id de 5 digitos")
Exit Sub
End If
CRITERIO = "ID=" & COMILLAS & FUENTE & COMILLAS
Adodc1.Recordset.Find CRITERIO
If Adodc1.Recordset.EOF Then
MsgBox ("No se encontró registro")
Adodc1.Recordset.MoveLast
End If
Text2.SetFocus
End Sub

Hola Jose:
Lo primero, porque utilizas la variable COMILLAS, no seria necesario, entiendo que el ID, es numerico, ponlo de esta manera y me comentas si te vale:

CRITERIO = "ID=" & FUENTE

Saludos
Ana