怎样在出现错误的时候输出提示信息Err,然后清空对象

ExitHere:
    Set rst = Nothing
    Set cnn = Nothing
    Exit Sub


ErrorHandler:
    RDPErrorHandler Me.Name & ": Sub btnSave_Click()"
    Resume ExitHere

End Sub

根据错误号的信息输出

 If Err = 429 Then
        Set EXL = CreateObject("Excel.Application")
        Resume Next
    End If

怎样输出错误信息号和错误信息文本

源码：

'显示错误信息
Sub 错误信息()
    '出错时跳转至“行标签”标签
    On Error GoTo 行标签
    Dim Num As Integer
    Num = InputBox("请输入数据：")
    MsgBox "输入数据为：" & Num
    Exit Sub
'设置行标签
行标签:
    '出错时输出错误编号及错误描述信息
    MsgBox "错误编号：" & Err.Number & vbCrLf & "错误描述：" _
    & Err.Description, , "您出错了！"
End Sub

另外一种方法:

BaoBiaoYiDaKai:

If Err = 70 Then

MsgBox "同名报表已打开,请务必关闭EXCEL报表后再点击报表按钮重新生成!"

Else:

If (Err <> 0) Then MsgBox "未知错误" & Err

End If

成型的示例:

ExitHere:
    '这里关掉一些中间的对象,比方说recordset等
    '但是展现在客户面前的东西不能关闭,
    '最好以显性的方式展现出来
    '这样客户也好关闭
    Exit Sub
    
ErrorHandler:
    If Err = 429 Then
        Set EXL = CreateObject("Excel.Application")
        Resume Next
    Else
        If (Errnum = Err) Then Exit Sub
        MsgBox "错误编号：" & Err.Number & vbCrLf & "错误描述：" _
        & Err.Description, , "您出错了！"
        Errnum = Err
        Resume ExitHere
    End If