Problema al guardar registros con replace

Hola experto, tengo un programa muy simple pero me causa mucho problemas, cuando ingreso y guardo cierta cantidad de registros, sale un mensaje de error.
"miprograma.exe ha detectado un problema y debe cerrarse.
Si esta en pleno proceso, puede perderse la información con la que este trabajando"
y muestra tres botones Depurar, Enviar informes de errores, no enviar.
Esto es lo único que tengo en mi botón guardar, por favor ayuda
IF thisform.Text1.value > date()
=messagebox("La fecha de ingreso debe ser < a la fecha actual","Mensaje del sistema")
thisform.Text1.setfocus
ELSE
IF empty(thisform.Text1.value) or empty(thisform.text2.value) or empty(thisform.text3.value)or empty(thisform.text5.value)
=messagebox("Registros incompletos","Mensaje del sistema")
thisform.grupo1.option1.setfocus
ELSE
IF thisform.grupo1.option1.value=1
se="CHMS"
ENDIF
IF thisform.grupo1.option2.value=1
se="CMSS"
ENDIF
IF thisform.grupo1.option3.value=1
se="CMSE"
ENDIF
IF thisform.grupo1.option4.value=1
se="CMSSI"
ENDIF
************************************
IF thisform.grupo1.option1.value=1
mues1="POR"
ELSE
mues1=" "
ENDIF
IF thisform.grupo1.option2.value=1
mues2="POR"
ELSE
mues2=" "
ENDIF
IF thisform.grupo1.option3.value=1
mues3="POR"
ELSE
mues3=" "
ENDIF
IF thisform.grupo1.option4.value=1
mues4="POR"
ELSE
mues4=" "
ENDIF
IF messagebox("Desea grabar los registros",36,"Mensaje del Sistema")=6
SELEC consultas
APPEND blank
REPLACE fecha with thisform.Text1.value
REPLACE orden with thisform.text2.value
REPLACE pac_hc with thisform.text5.value
REPLACE nombres with thisform.text3.value
REPLACE programa with thisform.text6.value
REPLACE habitacion with thisform.text4.value
REPLACE medico with thisform.text8.value
REPLACE especi with thisform.text7.value
REPLACE otros with thisform.edit1.value
REPLACE resultado with thisform.edit2.value
REPLACE sed_codigo with se
REPLACE mue1 with mues1
REPLACE mue2 with mues2
REPLACE mue3 with mues3
REPLACE mue4 with mues4
thisform.x_borrar
ENDIF
ENDIF
ENDIF