FoxPro/Visual FoxPro - ERROR EN GRID

HOLA:

TENGO ESTE PROGRAMA,EL CUAL CUANDO LO EJECUTO ME MUESTRA EL FORMULARIO ,Y EN VEZ DEL GRID DESPLEGADO SOBRE EL MISMO
CON EL CONTENIDO DE PRECIOS.DBF ME MUESTRA UN CUADRO BLANCO.
PROBE DE PONER UN REFRESH DEL OBJETO OFORM ,PERO NO TUVE RESULTADOS
GRACIAS AL QUE ME PUEDA AYUDAR:
EL CODIGO ES:

*SET STEP ON
CLOSE DATA ALL
SET DEFA TO E:\PRUEBA
SET CLASSLIB TO CLASSGRILLA ADDITIVE
PUBLIC oForm
oForm = NEWOBJECT("MiForm")

oForm.SHOW

DEFINE CLASS MiForm AS FORM
TOP = 0
LEFT = 0
DOCREATE = .T.
CAPTION = "Ejemplo de formulario vacio "
WINDOWSTATE = 0
NAME = "Form1"
WIDTH = 640
HEIGHT = 300

ADD OBJECT GRID1 AS grilla with;
recordsourcetype=1,;
recordsource="e:\prueba\precios"

procedure GRID1.init
use precios in 0
sele precios
endproc
ENDDEFINE

Prueba abriendo la tabla en el Load del formulario

gracias por la respuesta:
probe de ubicarlo en el load del form ,pero no se si estoy haciendo algo mal ,porque me hace el mismo efecto:
lo hice de la sigu manera:

*SET STEP ON
CLOSE DATA ALL
SET DEFA TO E:\PRUEBA
SET CLASSLIB TO CLASSGRILLA ADDITIVE
PUBLIC oForm
oForm = NEWOBJECT("MiForm")

oForm.SHOW

DEFINE CLASS MiForm AS FORM
TOP = 0
LEFT = 0
DOCREATE = .T.
CAPTION = "Ejemplo de formulario vacio "
WINDOWSTATE = 0
NAME = "Form1"
WIDTH = 640
HEIGHT = 300
procedure load *****aca ubique el evento load
set defa to e:\prueba
use precios in 0
sele precios
endproc

ADD OBJECT GRID1 AS grilla with;
recordsourcetype=1,;
recordsource="precios.dbf"


ENDDEFINE

En la parte del grid
columcount = 2 &&Cantidad de columnas que deseas
recordsourcetype=1 &&No puedes poner coma ni punto y coma aqui
recordsource="pacientes.dbf"

gracias