Visual Basic - ayuda porque pasa esto

diganme porque me marca el siguiente error en vb 6.0

tengo una consulta de la siguiente manera

Private Sub cmdBuscar_Click()
adoconsultaclientes.RecordSource = "Select * From Clientes Where ID =" & Val(txtNombreConsulta.Text)
adoconsultaclientes.Refresh
Beep

End Sub

para buscar el cliente por su id que es un campo numerico, este codigo trabaja bien pero cuando quiero hacer la misma consulta con la tabla de productos me marca lo siguiente

error en la clausula from

error '-2147217900)' en tiempo de ejecucion error en el metodo refresh del objeto iadodc

si pueden ayudarme mejor

visita al enlace que te pongo arriba Julia, si deseas alguna ayuda con problemas de programacion enviame un mail a
[email protected]