OLEDBConnection.OLAP (Excel)

Returns True if the OLE DB connection is connected to an Online Analytical Processing (OLAP) server.

Dim booOLAP As Boolean
booOLAP = ActiveWorkbook.Connections(1).OLEDBConnection.OLAP