OLEDBConnection.IsConnected (Excel)

Devuelve true si la propiedad MaintainConnection es true.

La propiedad IsConnected no comprueba si la conexión está activa.

Dim booIsConnected As Boolean
booIsConnected = ActiveWorkbook.Connections(1).OLEDBConnection.IsConnected