Ребята подскажите в чём ошибка

Private Sub Кнопка0_Click()
Dim cnn1 As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
Dim strCnn As String
Dim varDate As Variant

' Open connection.
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & conPath & "Строительство жилого дома.mpd"
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn
говорит в последней строке ошибка(Run-time error), не может найти файл Строительство жилого дома.mpd, хотя он точно там есть.

Ну что, совсем что ли никто не знает в чём загвоздка?

он автоматом определяет где лежит база, а именно
C:\Мои документы\Строительство жилого дома.mpd,
самый прикол, что он в ошибке прописывает полный путь до файла, просто в вопросе я покороче написал (имя файла).

я так понимаю, в тупик поставил.

не забывайтеееееееееееееееееееееееееееееееее меня очень, нужен ваш совет.

Так в том то и дело, что надо работать с mpd ( MS Project) файлом

во-первых брал, всё в кавычки, во-втовых сделал, что хотел влез в проект, теперь вся проблема заключается как из определённого места выцыпить данные в Аксу,а именно ( если кто знает Project) затраты по проекту и его сроки.
P.S. Вот именно в таких задачах проверяется крутость программера VBA.

Господа, смотрите и учитесь как надо код писать просто и незатейливо.
я даже сам был до плеши когда эта штуковина заработала.


Private Sub Кнопка0_Click()
Dim cnn1 As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
Dim strCnn As String
Dim varDate As Variant
Dim bycount As Integer
Dim a As Integer
' Open connection.
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & conPath & "Строительство жилого дома.mpd"
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn

' Open employee table.
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.Open "msp_tasks", cnn1, , adLockReadOnly, adCmdTable
rstEmployees.MoveFirst
For a = 1 To rstEmployees!task_cost
msg = rstEmployees!task_cost
If IsNull(msg) = False Then MsgBox msg
rstEmployees.MoveNext
Next a
cnn1.Close
Set cnn1 = Nothing
Set rstEmployees = Nothing

End Sub

а с файлами mpp нельзя работать, однако если переделать mpp в mpd, то можно в realtime, фигачить из mpp, который между прочим живет как и mpd.

В продолжение, кто-нибудь вытаскивал данные с помощью ADO, а потом в этой же программе использовал DAO для записи на сервер.
Вообще это реально, стоит ли пробовать? (Очень жалко своё время).
Подскажите, плизззззззззззззззззззззз!!!!!!!!!!!!!!!!!!!!!!

Господи, ау народ, вы где?