捕捉代码中的错误，及错误处理

方式一：

Private Sub btnSave_Click()
    On Error GoTo ErrorHandler
-------------------------

程序中其他代码

-------------------------

ExitHere:
    Set rst = Nothing
    Set objNode = Nothing
    Exit Sub
    
ErrorHandler:
    MsgBoxEx Err.Description, vbCritical
    Resume ExitHere
End Sub

方式二

Public Sub btnDelete_Click()
    On Error GoTo ErrorHandler

-------------------------

程序中其他代码

-------------------------

ExitHere:
    Exit Sub


ErrorHandler:
    If RDPErrorHandler(Me.Name & ": Sub btnDelete_Click()") Then
        Resume
    Else
        Resume ExitHere
    End If
End Sub