Данная возможность отсутствует для ADO Data. Применять его можно в том случае, если у Вы используете объект connection. Но такая возможность есть только со второй версии библиотеки типов.

Для того, чтобы можно было обрабатывать события надо описать объект Connection как генерирующий события.

Public WithEvents adoConnect As Connection

С этого момента он будет присутствовать в списке объектов.

А при его выборе будут доступны сообщения.

Вот так будет выглядеть код уведомления о завершении соединения.

Public WithEvents adoConnect As Connection



Private Sub adoConnect_Disconnect(adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)

MsgBox "Disconnect"

End Sub



Private Sub Command1_Click()

Set adoConnect = New ADODB.Connection

Dim strConnect As String

strConnect = "Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=Servers"

adoConnect.Open strConnect, "sa", "123"

' Код

adoConnect.Close

Set adoConnect = Nothing

End Sub