Error about OLAP Admin permissions

Hi iam executing this code and iam getting the error

Unable to connect to the registry on the server (SQLSERVER), or you are not a member of the OLAP Administrators group on this server.

The code is

Private Sub cbDataBaseList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbDataBaseList.SelectedIndexChanged

Dim dsoServer As New DSO.Server

Dim dsoDB As DSO.MDStore

Dim dsoCube As DSO.MDStore

' Create a connection to the Analysis server.

dsoServer.Connect("Localhost")

' Step through the databases in the server object.

For Each dsoDB In dsoServer.MDStores

' Print the name of the database into drop down box

cboDbName.Items.Add(dsoDB.Name)

Next dsoDB

listCubes.Items.Clear()

Dim strDataBaseName As String
strDataBaseName = cbDataBaseList.SelectedItem

Dim dsoDb As DSO.MDStore

If dsoServer.MDStores.Find(strDataBaseName) Then

dsoDb = dsoServer.MDStores.Item(strDataBaseName)

Dim dsoCube As DSO.MDStore
For Each dsoCube In dsoDb.MDStores
listCubes.Items.Add(dsoCube.Name)
Next

End If

End Sub

I donno whats that error and how to fix it if some one could help me it would be great.

Thank You

Emily

There are two common causes of this error that I am aware of

1) You are not a member of the OLAP Administrators group on the server (obviously, but I assume you have double checked this)

2) The server has had a service pack applied, but the client has an older version of the DSO libraries.

If item 1) is not your issue then what I would suggest is to find out what service pack has been applied to the server.

To find out the current level of Windows 2000 Analysis Services, start the Analysis Manager, right-click on the Analysis Servers node, and select "About Analysis Services." (Note that this tells you the SP that is on the machine running Analysis Manager - so you might want to run this check on the server console)

Once you have the version number, then match it to the list below to find which SQL Server service pack you are using.

2000.8.0.2039 Analysis Services SP 4 2000.8.0.760 Analysis Services SP 3 2000.8.0.532 Analysis Services SP 2 2000.8.0.382 Analysis Services SP1 2000.8.0.194 Analysis Services "gold" release, no SP