Dim Коннектор As Object
Dim РекордсетИмпорт As Object

Set Коннектор = CreateObject("ADODB.Connection")
Коннектор.ConnectionString = "Provider=MSOLAP.3;" & _
    "Integrated Security=SSPI;" & _
    "Persist Security Info=True;" & _
    "Initial Catalog=profit;" & _
    "Data Source=...;" & _
    "MDX Compatibility=1;" & _
    "Safety Options=2;" & _
    "MDX Missing Member Mode=Error"
Коннектор.Open

Set РекордсетИмпорт = CreateObject("ADODB.Recordset")
Set РекордсетИмпорт.ActiveConnection = Коннектор
РекордсетИмпорт.Source = _
 "SELECT {[Measures].[Отгрузки шт]} ON 0, {[Торговые точки].[Код ТТ].&[00001грд], [Торговые точки].[Код ТТ].&[00002грд]} ON 1 FROM PROFIT" 
РекордсетИмпорт.Open
...