Tamaño de columnas en grid

Hola

Mi problema es que en un formularo tengo un grid, en el inicio del
formulario realizo
esta busqueda:

SELECT base1
SELECT * FROM base1 WHERE cantidad > 0 INTO CURSOR Resultado
IF _TALLY > 0
thisform..grid1.RecordSource="Resultado"
ELSE
MESSAGEBOX ("No Hay Productos",48,"Error")
ENDIF

Mi problema es que las columnas se me cambian de tamaño, bueno, el grid no
respeta la configuración que le dí en la ventana propiedades, cheque el
artículo:
Restaurar el origen de datos de una grilla
Enviado por: Luis María Guayán
http://www.portalfox.com/article.php?sidS2

hice los métodos (que solo me deja crearlos en el formulario, no en el
grid), y puse los codigos de preservar y
restaurar columnas, en sus respectivos métodos, luego modifiqué el inicio
del formulario y me quedó así:

ThisForm.Grid1.PreservarColumnas()
ThisForm.Grid1.Tag = ThisForm.Grid1.RecordSource
ThisForm.Grid1.RecordSource = ""

SELECT base1
SELECT * FROM base1 WHERE cantidad > 0 INTO CURSOR Resultado
IF _TALLY > 0
thisform.grid1.RecordSource="Resultado"
ELSE
MESSAGEBOX ("No Hay Productos",48,"Error")
ENDIF

ThisForm.Grid1.RecordSource = ThisForm.Grid1.Tag
ThisForm.Grid1.RestaurarColumnas()
ThisForm.Grid1.Refresh

Que creen que pueda ser?

Gracias por su ayuda.



Leopoldo Sánchez
Nuevo León, México