Creating a local OLAP cube

This is a question about creating an OLAP cube with
MS Access data. I hope this is the correct topic area.
If not, please let me know which.

The problem:
------------

I am trying to create a local olap cube (.cub file) and
populate it with data from a MS Access database (I believe
the database could be anything, such as Oracle), but
without using Microsoft Analysis Services.

The cube so created is intended for use in a product called
ProClarity which can work with .cub files.

My problem is that I am unable to create the cube - my VB
code (given below) gives an error. The question of
populating the cube hasn't been addressed yet, until I cross
the creation stage.

In my code given below I have created an Access DSN.

My source of info:
------------------
I am following the guidelines shown at the site:
http://www.localcubetask.com/createwithvb.htm.
I have also seen a general example under
ProgramFiles\ Microsoft Analysis Services\Samples\VbAdoCreateCube
(although I said I do NOT want to use MS Analysis Services, this
example is a good general guideline)

What I have tried so far:
-------------------------
These two examples work fine! But my own code does not.
I get the error: "Syntax error in column definition"

The error occurs at the statement -

cnCube.open s

The connectivity part of the cube seems to be working,
but I feel the error has something to do with the syntax
of the create cube or the Inert into statements.

If that diagnosis is correct, I guess I need help with
the syntax. Any comprehensive reference could be very useful.
Especially in terms of assigning dimension names and level names.
Are these names required to be related to the column names and
table names in the database?

For example: my table name in MS-Access is SSTORE and field
names are STORE_NAME, STORE_SALES, etc. Now when I specify my
level name for the cube, does it need to be the same like the
column name - i.e STORE_NAME  instead of STORE NAME as in the
code given below.

Help on all of the following will be much appreciated:

1. Correction in my code so that it works
2. Pointers to comprehensive syntax for cube-related statements
3. Rules for creating and naming dimensions, levels, measures for
   the cube and the Insert Into statements.

The code I have written is here :

' #######################CODE#################################33
Private Sub cmdClick_Click()

Dim cnCube As ADODB.Connection
Dim s As String
Dim strProvider As String
Dim strDataSource As String
Dim strSourceDSN As String
Dim strSourceDSNSuffix As String
Dim strCreateCube As String
Dim strInsertInto As String
Dim strSource As String
 
On Error GoTo Error_cmdCreateCubeFromDatabase_Click

strSource = Connection(1)
strCreateCube = getCreateCube()
strInsertInto = getInsertInto()

Set cnCube = New ADODB.Connection
s = strSource & ";" & strCreateCube & ";" & strInsertInto & ";"
cnCube.Open s

Exit Sub


Error_cmdCreateCubeFromDatabase_Click:
Screen.MousePointer = vbDefault
    MsgBox Err.Description
    If Err.Number <> 0 Then
   msg = "Error # " & Str(Err.Number) & " was generated by " _
         & Err.Source & Chr(13) & Err.Description
   MsgBox msg, , "Error", Err.HelpFile, Err.HelpContext
    End If
End Sub

Private Function Connection(idbtype As Long) As String
strProvider = "PROVIDER=MSOLAP"
strDataSource = "DATA SOURCE=c:\OlapCube.cub"
strSourceDSN = "SOURCE_DSN=AccessLoyd"

Connection = strProvider & ";" & strDataSource & ";" & strSourceDSN
End Function


Private Function getCreateCube() As String
Dim strCreateCube As String
strCreateCube = "CREATECUBE=CREATE  CUBE cbia( "
strCreateCube = strCreateCube & "DIMENSION[STORE] ,"
strCreateCube = strCreateCube & "LEVEL[STORE Name] ,"
strCreateCube = strCreateCube & "MEASURE [STORE Sales] "
strCreateCube = strCreateCube & "Function Sum "
strCreateCube = strCreateCube & "Format '#.#')"
getCreateCube = strCreateCube
End Function

Private Function getInsertInto() As String
Dim strInsertInto As String
strInsertInto = strInsertInto & "INSERTINTO=INSERT INTO cbia( SSTORE.[STORE Name],"
strInsertInto = strInsertInto & "Measures.[SSTORE Sales])"

strInsertInto = strInsertInto & "SELECT SSTORE.STORE_NAME AS COL1,"
strInsertInto = strInsertInto & "SSTORE.STORE_SALES AS COL2"
strInsertInto = strInsertInto & "FROM [SSTORE]"
getInsertInto = strInsertInto

End Function

' ###########END OF CODE ##############


thanks in advance!

- stochastic