MDX sample работать не будет, т.к. DrillThrought возвращает rowset, MDX sample работает только с IMDDataset. Вот пример, только он давно не бегал, так что не знаю скомпилится ли. Поищите есть ли у Вас на машине RowsetViewer.exe, тогда можно будет его использовать и код не писать.

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sOutput As String
Dim strDT As String

Set con = New ADODB.Connection

con.Open "provider=msolap.2;data source=localhost;initial catalog=Foodmart 2000";

strDT = "DRILLTHROUGH SELECT {[Time].[1997].[Q1].[January]} on AXIS(0), {[Measures].[Supply Time]}on Axis(1) FROM Warehouse"

Set rs = con.Execute(strDT)
While Not rs Is Nothing

While (rs.EOF = False)
sOutput = "" & i
For Each fld In rs.Fields
sOutput = sOutput & vbTab & vbTab & fld.Value
Next fld
Debug.Print sOutput
rs.MoveNext
Wend

Set rs = rs.NextRecordset
If (Err.Number = adErrFeatureNotAvailable) Then
sOutput = "There are no more rowset awailable"
Debug.Print sOutput
MsgBox sOutput
'Debug.Assert False ' this provider does not support multiple recordsets
Set rs = Nothing
End If
On Error GoTo 0
Wend

Ирина

----------------------------------------------------
This posting is provided "AS IS" with no warranties, and confers no rights