FoxPro/Visual FoxPro - Problemas con el GRID

quetal espero que me puedan ayudar.

el problemas es cuando ejecuto un boton de guardar de mi formulario, especificamente en Mensage, el grid que tengo mas abajo de mi formulario se pone en blanco, y no se porque pasa eso o tengo algun error en mi codigo?

aqui les mando el codigo de mi boton Guardar!!!
------------------------------------------------------------------------------------
USE c:\seguros\datos\companias.DBF
cod=thisform.txtcodcompania.value
LOCATE FOR (cod_comp)=(thisform.txtcodcompania.value)
IF found()
MESSAGEBOX("El Codigo: "+cod +CHR(13) +"YA EXISTE!!!!",0+32+256)
***AQUI TENGO EL ERROR, EL MENSAGE CUANDO APARECE EL GRID QUE TENGO MAS ABAJO DESAPARECE O SE PONE EN BLANCO, EN SI ES CUANDO APARECE CUALQUIERA DE LOS MENSAGES DESAPARECE EL GRID.
return
else
mOpc=MESSAGEBOX("Esta Seguro de Guardar los Datos?",1+32)
IF mopc=2 && clic boton cancelar
delete
else
SET DATE BRITISH
SET CENTURY ON
APPEND BLANK
replace cod_comp WITH thisform.txtcodcompania.Value
replace compania WITH ALLTRIM(thisform.txtcompania.Value)
replace direccion WITH ALLTRIM(thisform.txtdireccion.Value)
replace telefono WITH thisform.txttelefono.Value
replace ruc WITH thisform.txtnit.Value
replace correo WITH ALLTRIM(thisform.txtemail.Value)
endif
endif
CLOSE DATABASES
thisform.release

El RecordSource de tu grid debe de estar malo o alguna columna no tiene el nombre del campo bien (Controlsource).

mandale solo un refresh al grid

Suerte

Parece que estás cerrando la tabla que alimenta el grid, por eso queda en blanco