Данная возможность отсутствует для 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