на vb надо смотреть коллекции каталога, вот пример кода
Dim i, st As Variant
Dim cnn As New ADODB.Connection
Dim dl As New DataLinks

'откроем мастер для подключения к серверу и кубу
On Error Resume Next
dl.hWnd = Me.hWnd
If dl.PromptEdit(cnn) Then
cnn.Open
cnnstr = cnn.ConnectionString
End If
'выведем имя сервера выбранного
ServerName.Text = cnn.Properties.Item(71).Value
'теперь получим список кубов нашего сервера
Set CubsCatalog = CreateObject("ADOMD.Catalog")
CubsCatalog.ActiveConnection = cnn.ConnectionString
CubeName.Clear
If CubsCatalog.CubeDefs.Count > 0 Then
For i = 0 To CubsCatalog.CubeDefs.Count - 1
CubeName.AddItem (CubsCatalog.CubeDefs(i).Name)
'MsgBox CStr(CubsCatalog.CubeDefs(i).Name)
Next i
End If
cnn.Close

Phenimore_Cooper
объект DataLinks тебе на что, вот его и см.