No me aparecen los datos en el grid

Hola de nuevo espero que me puedan ayudar, hace tiempo estoy con un grid y no se que pasa que no me muestra los datos, lo hice de nuevo varias veces pero no me muestra nada así que me fije en un ejemplo por internet pero tampoco funciona.
En el load del formulario:
CREATE CURSOR tempgrid (numero N(7))
En las propiedades del grid:
RecorSource= tempgrid
RecorSourceType:1-alias
Y en el botón "actualizar":
SELECT numero FROM D:\tabla.DBF WHERE numero = ThisForm.Text1.VALUE INTO CURSOR tempselect
SELECT tempgrid
ZAP
APPEND FROM DBF("tempselect")
THISFORM.refresh
APPEND FROM DBF("tempselect")THISFORM.refresh