怎样循环记录集,vba怎样优雅的退出

'循环记录集

Do Until rstTmp.EOF
        rst.AddNew
        rst![业务确认时间] = rstTmp![业务确认时间]
        rst.Update
        rstTmp.MoveNext
    Loop
    rst.Close
    rstTmp.Close

sub sub名称()

onerror goto ErrorHandler

.............................

中间代码

.............................

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

ErrorHandler:
    If Err = 3021 Then
        Resume Next
    Else
        RDPErrorHandler Me.Name & ": Sub Form_Load()"
        Resume ExitHere
    End If
End Sub

有的对象已经被创建了,有的对象还没有被创建,但是出现错误的时候我不知道出现在,一种方法是

If rst.State <> adStateClosed Then
            rst.Close'对象关闭,但是还是存在内存到那个中
            Set rst = Nothing'这个直接啥都没有了,所以这个放在后面
        End If

 

if cn.state=1 then cn.close
set cn=nothing