Efectivamente, como me temía, el error es porque el campo "Telefono" es numérico y lo estás considerando como de texto.
La consulta debería ser así: adoclien.RecordSource =
"Select * From Clientes Where Telefono = " & buscartel
pero para que lo anterior funcione debes modificar las siguientes propiedades del control dataADO (adoclien):
CommandType = 1 - adCCmdText
RecordSource = Select * From Clientes
Para efectuar la búsqueda en una única tabla, es mas sencillo hacerlo con el método "Find" y sin modificar las propiedades anteriores.
Bueno, yo pondría el código así:
Código:
Private Sub Command1_Click()
Dim buscartel As String
Dim lTel As Long
buscartel = InputBox("Ingrese El Telefono A Buscar.", "Buscar Producto")
' si no se escribió nada o se pulsó en "Cancelar", salimos
If buscartel = "" Then Exit Sub
' verificar que solamente se escribieron números
If Not IsNumeric(buscartel) Then
MsgBox "Sólo números"
Exit Sub
End If
' convertir la variable "buscartel" a número
lTel = CLng(buscartel)
adoclien.Recordset.MoveFirst
adoclien.Recordset.Find "Telefono = " & lTel
If adoclien.Recordset.EOF Then
MsgBox "No encontrado"
End If
' adoclien.Refresh<-- instrucción no necesaria, ya que los TextBox
' están enlazados a los campos de la tabla
End Sub
Suerte con tu proyecto!