如何实现vb程序非正常中断或退出时，程序能获取错误并执行特定事件？

Question

我做一个程序，向oracle数据库中导入数据（多个数据表）。导入以前先查看数据库中是否有同名表存在，（通过在另一个表table1中存放所要导入的所有数据表的表名，对其作标识）。但有时候导入过程出错，或者被人为中断，此时表中的标示是表已存在，但事实上数据表并没有导入或者导入不完整。
我希望通过程序获取错误，在中断以前对导入错误的表，在上述table1中改变标示
不知道能不能实现这个功能？

Answer 1

错误处理不能捕获吗?如果不需要处理可以考虑用On Error Resume Next语句来跳过该错误,如:
On Error Resume Next
Err.Clear

Answer 2

或者进行一下判断,不知道行不行,没试过!
If Err.Source<>"" then
    Err.Raise vbobjectError+512+1,,"表导入错误"
EndIf
该判断运行一个错误,如果想控件该错误还是需要用错误处理来捕获!

Answer 3

On Error Resume Next  '不需出错处理On err GoTo errorport
.
.
.
errorport:
   处理出错的代码