服务器自动作业 出现什么有关问题

服务器自动作业 出现什么问题
各位大侠，帮忙解决下咯
问题是这样的：vb6.0写的程序，有个自动作业功能，（主要是对数据库中表处理）因为每次运行时候都自动对系统昨天时间自动作业，我想知道下这样的 程序在自动作业中处理不成功会出现什么错误，比如断电，服务器没连接等，我想做出提醒，比如运行时候会提醒，具体哪天处理不成功  
本人急用
万分感谢

[解决办法]

VB code

dim cn as ADODB.Connectiondim dtToday as datedtToday = Date()cn.open ...cn.Execute "INSERT 作业状态表('" & Format$(dtToday, "yyyy-mm-dd") & "', 0)"执行自动作业cn.Execute "UPDATE 作业状态表 SET 状态=1 WHERE 日期='" & Format$(dtToday, "yyyy-mm-dd") & "'"
[解决办法]
VB code
Private Sub ShipSailAccount_guozhang110() DepartDate = Format(Now - 1, "yyyy-mm-dd）cn.Execute "INSERT 作业状态表('" & DepartDate & "', 0)"Call ShipSailAccount_guozhang1101 Call ShipSailAccount_guozhang1102 Call ShipSailAccount_guozhang1103 Call ShipSailAccount_guozhang1104 cn.Execute "UPDATE 作业状态表 SET 状态=1 WHERE 日期='" & DepartDate & "'"set rst = cn.Execute("SELECT 日期 WHERE 状态=0")If rst.EOF then    MsgBox ("过帐成功！") Else    MsgBox "以下日期过帐不成功" & rst.GetString()End ifEnd Sub
[解决办法]
我用 ADO，你的要想是 RDO。
接口有差异很正常，按照这个思路自己写 RDO 的吧。