Ayuda para buscar registros

[Tony_squall]

Tengo un problema a la hora de buscar un registro de la base de datos me marca error run-time error -2147217900(80040e14)
pues la verdad segun yo el codigo esta bien escrito y tambien la forma de desarrollo tiene logica
alguien que me pueda ayudar dejo el codigo aqui






Private Sub Clientes_Validate(Action As Integer, Save As Integer)

End Sub

Private Sub Command1_Click()
Dim buscartel As String
buscartel = UCase(InputBox("Ingrese El Telefono A Buscar.", "Buscar Producto"))
adoclien.RecordSource = "Select * From Telefono where Clientes ='" & buscar & "'"
adoclien.Refresh
End Sub

Public Sub buscarr(criterio As String, dato As String)
adoclien.Recordset.MoveFirst
adoclien.Recordset.Find criterio
If adoclien.Recordset.EOF Then
frmcuadro.Show
frmcuadro.lblmensaje.Caption = "No Se Encuentra El Dato: " + dato
adoclien.Recordset.MoveFirst
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
adoclien.Recordset.Close
End Sub

Private Sub mnusal_Click()
mdiPrincipal.Show
End Sub