VB6.0 怎么写事件日记 ？万分感谢

VB6.0 如何写事件日记 ？？万分感谢
各位路过大侠好
小弟现在需要在程序中写一个事件日记，新手，不知道怎么写，在这里向大家学习了
谢谢

（vb6.0写的程序，有个自动作业功能，（主要是对数据库中表处理）因为每次运行时候都自动对系统昨天时间自动作业，我想知道下这样的 程序在自动作业中处理不成功会出现什么错误，比如断电，服务器没连接等，我想做出提醒具体哪天处理不成功，哪天成功，0表不成功，1表成功，还有时间，写成事件日记 ）

[解决办法]

VB code

'可将程序设定为从sub Main 启动,在程序目录下新建一个文本文件更改名称为log.txtsub MainApp.StartLogging App.Path & "\log.txt", vbLogToFileend sub'在事件中添加类似如下的代码App.LogEvent "事件:" & "func_name" & "执行失败,错误描述:" & vbcrlf & err.description & vbCrLf, vbLogEventTypeInformation