ソースコード:データベースが開かれている状態を判断し、閉じる。

Sub CloseConn(Conn)
    On Error Resume Next
    If IsObject(Conn) then
        Conn.Close()
        Set Conn = Nothing
    End If
    If Err Then Err.Clear
End Sub

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です