My code like :
strProvider = "PROVIDER=MSOLAP.3"
strLocation = "LOCATION=c:\DocumentCube.cub"
strSourceDSN = "Data Source=localhost;Initial Catalog=AdventureWorksDW;Integrated Security=SSPI"
Set cn = New ADODB.Connection
s = strProvider & ";" & strLocation & ";" & strSourceDSN & ";" & strCreateCube & ";" & strInsertInto & ";"
Screen.MousePointer = vbHourglass
cn.Open s
Error in the line : cn.Open s
I don't know why is it error?
strProvider = "PROVIDER=MSOLAP.3"
strLocation = "LOCATION=c:\DocumentCube.cub"
strSourceDSN = "Data Source=localhost;Initial Catalog=AdventureWorksDW;Integrated Security=SSPI"
Set cn = New ADODB.Connection
s = strProvider & ";" & strLocation & ";" & strSourceDSN & ";" & strCreateCube & ";" & strInsertInto & ";"
Screen.MousePointer = vbHourglass
cn.Open s
Error in the line : cn.Open s
I don't know why is it error?