ConnectionオブジェクトのStateプロパティ
CN.State

接続状態  接続中:adStateOpen  未接続:adStateClosed

Sub test()
    Dim CN As ADODB.Connection
    
    Set CN = CurrentProject.Connection
    
    If CN.State = adStateOpen Then MsgBox "Open"
    If CN.State = adStateClosed Then MsgBox "Closed"
    
    CN.Close

    If CN.State = adStateOpen Then MsgBox "Open"
    If CN.State = adStateClosed Then MsgBox "Closed"

    Set CN = Nothing

End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ