los eventos del control grid no se ejecutan

Tengo un control Grid en donde los eventos Keypress del textbox del grid
tiene codigo, asi como el evento click el grid si se me carga muy bien pero
esos eventos
no se ejecutan, pienso si tiene algo que ver que asocio la tabla en el
evento init del Form


cual puede ser el problema


lParameter lcConsulta
thisform.Articulo = Space(12)
lcConsulta = alltrim(upper(lcConsulta))
SELECT articulo,descrip1,descrip2,exist_disp FROM faarti00 WHERE (descrip1
LIKE lcConsulta) OR (descrip2 LIKE lcConsulta) into table consulta

if reccount()<= 0
Thisform.Release
Else
with thisform.grdConsulta
.fontSize = 8
.RecordSourceType = 1
.RecordSource = 'consulta'
.refresh
endwith
endif