Provider cannot be found. it may not be properly installed
i am trying to get the values of of some MS Project fields into MS Word but i keep getting this error "Provider cannot be found. it may not be properly installed" although everything seems to be fine, please any ideas on how to go about it.
Code:
Sub ConnectLocally()
Dim conData As New ADODB.Connection
Dim rstAssigns As New ADODB.Recordset
Dim intCount As Integer
Dim strSelect As String
Dim strResults As String
fhre = ActiveDocument.Path
part = fhre & "\timetrack.mpp"
conData.ConnectionString = "Provider=Microsoft.Project.OLEDB.9.0;PROJECT NAME=" & part
conData.ConnectionTimeout = 30
conData.Open
strSelect = "SELECT ResourceUniqueID, AssignmentResourceID, AssignmentResourceName , TaskUniqueID, AssignmentTaskID, " & _
" AssignmentTaskName FROM Assignments WHERE TaskUniqueID > 0 ORDER BY AssignmentTaskID ASC"
rstAssigns.Open strSelect, conData
Do While Not rstAssigns.EOF
For intCount = 0 To rstAssigns.Fields.Count - 1
strResults = strResults & "'" & _
rstAssigns.Fields(intCount).Name & "'" & _
Space(30 - Len(rstAssigns.Fields(intCount).Name)) & vbTab & CStr(rstAssigns.Fields(intCount).Value) & vbCrLf
Next
strResults = strResults & vbCrLf
rstAssigns.MoveNext
Loop
conData.Close
Open "C:\My Documents\Results.txt" For Output As #1
Print #1, strResults
Close #1
Shell "Notepad C:\My Documents\Results.txt", vbMaximizedFocus
End Sub
PS: i added the Ms project library reference and also the ADO 2.6 library reference
i appreciate your suggestions.
