Visual Basic - No Me Sale... Instruccion SELECT

Tengo una forma donde con un text ,un grid y un DataAdo...necesito mostrar en el grid los nombre que contengan lo escrito en el control text....Ejemplo si en el text tengo "a" en el grid me debe de mostrar todos los nombres que contengan una "a" en cuaquier parte de NOMBRE......yo lo pongo asi

strClave = txtBuscar.Text
strSQL = "SELECT Nombre FROM TBCultivos Where InStr(1, Nombre, strClave) > 0"
Adodc1.RecordSource = strSQL
Adodc1.Refresh
Set GridDatos.DataSource = Adodc1
GridDatos.Refresh

espero me puedan resolver esto... de antemano gracias...

Prueba con esto ...

SELECT Nombre FROm TBCultivos WHERE Nombre LIKE '%a%'

Para esto es recomandable el condicionante LIKE, este te da la posibilidad de poner comodines de busqueda en los campos... tal como lo harias con un comando DIR de DOS.

Ejemplo, para extraer todos los nombres que contengan una F en cualquier parte de este en una tabla CLIENTES

SELECT NOMBRE
FROM CLIENTES
WHERE NOMBRE LIKE '*F*'

O TODOS LOS QUE COMIENCEN CON UN ENCABEZADO DADO

SELECT NOMBRE
FROM CLIENTES
WHERE NOMBRE LIKE '(encabezado)*'

ojala te sirva