Вот сэмпл-код из Books Online (раздел - Add Dimensions and Levels).
Последняя строка, а именно "dsoDim.Update" дает ошибку "Object doesn't support property or method". Что делать?
Кстати еще и Set dsoDim.DataSource = dsoDS дает ошибку типов...

'Create Product Dimension and Levels
Set dsoDim = dsoDB.Dimensions.AddNew("Products")
Set dsoDim.DataSource = dsoDS 'Dimension DataSource
dsoDim.FromClause = "product" 'Related Table
dsoDim.JoinClause = "" 'Used in snowflake schema

'Product Brand Level
Set dsoLev = dsoDim.Levels.AddNew("Brand Name")
dsoLev.MemberKeyColumn = """product"".""brand_name"""
dsoLev.ColumnSize = 255
dsoLev.ColumnType = adWChar
dsoLev.EstimatedSize = 1

'Product Name Level
Set dsoLev = dsoDim.Levels.AddNew("Product Name")
dsoLev.MemberKeyColumn = """product"".""product_name"""
dsoLev.ColumnSize = 255
dsoLev.ColumnType = adWChar
dsoLev.EstimatedSize = 1

'Update the dimension
dsoDim.Update