vfp终止程序的初级有关问题

vfp终止程序的初级问题
update.prg代码：
do prgs\test_conn.prg &&测试连接
do prgs\uploadOra.prg &&上传
do prgs\uploadSQL.prg  
do prgs\download.prg &&下载
每个prg中出错都有messagebox加return
如：
if ireturn<0 **连接句柄
messagebox（‘连接错误’）
return &&return .f.试了也不行
endif
问题：现在是如果一个prg出错了，程序会终止当前prg，仍然继续执行后面的prg.
我的要求是只要出错，整个update.prg停止并退出。

------解决方案--------------------------------------------------------
改写成函数，把这些 PRG 全部改写成函数，然后放到一个PRG（如：MyFunction.PRG）中，并在主程序开头加：
Set Procedure To MyFunction.PRG
然后类似这样的语句
do prgs\test_conn.prg 
改为
if 函数名()
*再向下执行
endif