Cannot initialize Microsoft@ SQL analysis services

[KK]

'open the connection to the project file
Dim conData
Set conData = CreateObject("ADODB.Connection")

conData.ConnectionString = "Provider=MSOLAP.2;User ID="";Data
Source=C:\New Folder\Task Usage.cub;Location=C:\New Folder\Task
Usage.cub;Initial Catalog="";Client Cache Size=25;Auto Synch Period=10000"
conData.ConnectionTimeout = 30
conData.Open

'********************************************************************************************************
'*** locate tasks with durations greater than 10 day
'********************************************************************************************************

Dim rsData
Sql = "Select TaskID, TaskName, TaskDuration, TaskStart, TaskFinish,
TaskMilestone, TaskSummary,"
Sql = Sql & " TaskPredecessors, TaskSuccessors, TaskDurationElapsed,
TaskPercentComplete from tasks"
Sql = Sql & " Where TaskSummary=0 and TaskMilestone=0 and
TaskDuration > 48000 and TaskPercentComplete<100"
Sql = Sql & " Order by TaskID"
Set rsData = conData.Execute(Sql)


Why every time when i debug ,it will stop at condata.Open there ?Anyone can
help me ?