Programación de Gráficos - BOTTON GUARDAR

HOLA AMIGOS LA IDEA ES IMPLEMENTAR UN BOTTON PARA GUARDAR DATOS EN TABLAS DE FOXPRO8 GRACIAS AMIGOS

SELECT * FROM EMPRESAS WHERE ALLTRIM(EMPRESAS.CODIGO) = ALLTRIM(THISFORM.CMBCODIGO.Text) INTO CURSOR rsSQL
SELECT rsSQL
GO TOP IN rsSQL

IF EOF() OR BOF() then
msg=MESSAGEBOX("DESEA GUARDAR LA NUEVA EMPRESA",4+64,"Guardar")
IF msg=6 then
SELECT EMPRESAS
APPEND BLANK
REPLACE CODIGO WITH ALLTRIM(THISFORM.CMBCODIGO.Text)
REPLACE NOMBRE WITH ALLTRIM(THISFORM.TXTNOMBRE.Text)
ENDIF
ELSE
msg=MESSAGEBOX("DESEA MODIFICAR LA EMPRESA",4+64,"Modificar")
IF msg=6 then
SELECT EMPRESAS
REPLACE NOMBRE WITH ALLTRIM(THISFORM.TXTNOMBRE.Text)
ENDIF

ENDIF