I keep getting a COM exception error when I put the following code in a 

VB.Net class and call it. The code bombs on the following line. Any ideas??

I have the folloing references named fo the project.

--Microsoft activex data objects(multidimensional) 2.7 library

--Microsoft activex data objects 2.7 library

--system

--system.data

--microsoft.visualbasic.compatibility

--

cat.let_ActiveConnection("Data Source=local;Provider=msolap;")





-

        Dim cat As New ADOMD.Catalog()

        Dim cst As New ADOMD.Cellset()

        Dim i As Short

        Dim j As Short

        Dim strServer As String

        Dim strSource As String

        Dim strColumnHeader As String

        Dim strRowText As String



        '*-----------------------------------------------------------------

------

        '* Set Server to Local Host

        '*-----------------------------------------------------------------

------

        strServer = "LOCALHOST"



        '*-----------------------------------------------------------------

------

        '* Set MDX query string Source

        '*-----------------------------------------------------------------

------

        strSource = strSource & "SELECT "

        strSource = strSource & "{[Measures].members} ON COLUMNS,"

        strSource = strSource & "NON EMPTY [Store].[Store City].members ON 

ROWS"

        strSource = strSource & " FROM Sales"



        '*-----------------------------------------------------------------

------

        '* Set Active Connection

        '*-----------------------------------------------------------------

------

        cat.let_ActiveConnection("Data Source=local;Provider=msolap;")