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
strSQL = "SELECT Nombre FROM TBCultivos where Nombre like '%" & strSQL & "%'"

Espero que te sirva.