Есть код для прочитывания файла в Project-е

Private Sub Кнопка0_Click()
Dim rcd As DAO.Recordset
Dim db As DAO.Database
Dim cnn1 As ADODB.Connection
Dim cmdcn As ADODB.Command
Dim rstEmployees As ADODB.Recordset
Dim strCnn As String
Dim varDate As Variant
Dim sSQL As String
Dim bycount As Integer
Dim a As Integer
' Open connection.
'strCnn = "Provider=Microsoft.Jet.OLEDB.10.0;Data Source=c:\Special\Строительство жилого дома.mpp"

strCnn = "Provider=Microsoft.Project.OLEDB.10.0;Project Name=c:\Special\Строительство жилого дома.mpp"
'Project Name=" & conPath & "Строительство жилого дома.mpp"

Set cnn1 = New ADODB.Connection
cnn1.Open strCnn

' Open employee table.
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.Open "Tasks", cnn1, , , adCmdTable
rstEmployees.MoveFirst
For a = 1 To rstEmployees.RecordCount
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

Кто может подсказать, почему rstEmployees.RecordCount равен -1?

В принципе без разницы, интересует другое, почему вообще не видит ниодной таблицы в Project-е.
А Tasks, такое чувство, воспринимается никак таблица, а как что-то иное, потому что подставляя вместо него другие названия таблиц, говорит, что таких таблиц типа не вижу.
Очень нужна помощь, изрыл всё что можно, в т.ч. родной MSDN.

Народ не бросайте меня, серьёзно очень нужна помощь, у меня проект встал.

Вижу никто не понимает, что нужно, объясняю:
Необходимо из проекта вытащить определённое значение из таблицы, это значение будет подставляться в отчёт Аксы.