ADOMD如何取出维度里某一层的成员属性？

[chinabs]

ADOMD如何取出维度里某一层的成员属性？

[whasdf]

我不知道ADOMD中怎么取，我只会这样
查MSDN中的帮助：openschema

VB代码（最好看明白帮助再用）：
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim szPropertyName As String
Const PropertyName = "PROPERTY_NAME"

Set cn = New ADODB.Connection
cn.Open ("provider=msolap; Data Source=LocalHost; Initial Catalog=FoodMart 2000;")

Set rs = cn.OpenSchema(adSchemaProperties, Array("FoodMart 2000", Empty, Empty))

Do Until rs.EOF
szPropertyName = rs.Fields(PropertyName).value
Debug.Print szPropertyName
rs.MoveNext
Loop

你知道ADOMD如何取的话，望告知，谢谢