顶楼上
比如:
On Error GoTo ExecuteSQL_Error '出现错误跳转到ExecuteSQL_Error
'.....程序代码
ExecuteSQL_Exit:
Exit Sub '终止过程。在正常情况下,在此终止。没有这句就会执行ExecuteSQL_Error
ExecuteSQL_Error: '如果错误执行以下代码
MsgBox "错误:" & Err.Description '错误提示
Resume ExecuteSQL_Exit '执行ExecuteSQL_Exit下的代码