FoxPro/Visual FoxPro - resultado en consulta en grid

hola:
tengo una tabla de movimientos de articulos,la cual necesito consultar por codigo de producto y mandar ese resultado a un grid.
lo que intente hacer es:

un form con un text box donde pongo el codigo a consultar.
un grid donde en la propiedad rowsourcetype pongo consulta de sql

un boton command en donde en el evento click
pongo thisform.grid1.rowsource = "select * from movimientos where codprod=thisform.text1.value" (el valor que ingrese en el text box)

no me da error de sintaxis ,pero en la ejecucion no me trae ningun movimiento (el campo codprod es caracter 6).

desde ya gracias por la ayuda

Hola te diré cómo hago este tipo de consultas y tu sacas tu conclusión:

En el evento LOAD del formset cargo la tabla en un cursor
SELECT * FROM MOVIMIENTOS INTO CURSOR cMOVIM WHERE .F.

esto me da un cursor con la estructura de MOVIMIENTOS , pero vacío

Luego cuando quiero hacer la consulta , el el botón OK de la consulta programo:
vCodProd = thisform.text1.value
SELECT * FROM MOVIMIENTOS WHERE CODPROD = vCodProd into cursor cX

select cMOVIM
APPEND FROM DBF("cX")
thisform.grid1.refresh
thisform.grid1.setfocus

Nunca me falla

THISFORM.TEXT1.VALUE=STR(VAL(THISFORM.TEXT1.VALUE),6)

ThisForm.grid1.RowSource = "SELECT * FROM movimientos WHERE codprod=thisform.text1.value


Suerte

Se me olvidaba tienes que poner el RecordSourceType a 4

ThisForm.Grid1.RecordSourceType=4


Suerte

Hola Amigo derrepente en tu caso te habras olvidado cambiar la propiedad de tu grilla a RECORDSOURCETYPE=4. chequealo.

tambien pordrias hacer lo siguinete tu consunta realizalo y lo guardas en un cursor asi

thisform.grid1.rowsource=""

select * from movimientos where codprod=thisform.text1.value into cursor tem_mov

thisform.grid1.rowsource="tem_mov"
thisform.grid1.refresh

pruebalo ok...