vb.net中连接MSOLAP 怎么不能用以前vb6.0的语句了?

[filter023]

Dim cst As ADOMD.Cellset
cst = New ADOMD.Cellset()
cst.ActiveConnection = "Provider=MSOLAP.2;Data Source=localhost;Initial Catalog=FoodMart2000"
cst.Source = "select {[Measures].[Unit Sales]} on columns, order(except([Promotion Media].[Media Type].members,{[Promotion Media].[Media Type].[No Media]}),[Measures].[Unit Sales],DESC) on rows fromSales"
cst.Open()

**************没有用了？？

[filter023]

报错：
"参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。"

[hongshun]

Dim adoCub As ADOMD.CubeDef
Dim adoCat As New ADOMD.Catalog()
Dim oledbconn As New ADODB.Connection ("Provider=MSOLAP.2;Integrated Security=SSPI;Persist Security Info=False;Data Source=monday;Initial Catalog=foodmart 2000")
oledbconn.Open()
adoCat.ActiveConnection =oledbconn
For Each adoCub In adoCat.CubeDefs
Debug.WriteLine(adoCub.Name)
Next adoCub


//上边的代码也许对你有些用处

[huxin1012]

.Net中，在哪有ADOMD？