ADO reference path missing

R

Robert

When executing the following code under access 2002 with
the ado references checked under tools reference, the
paths to the ado libraries are not available. The paths
to all other libraries are avialable with the code and the
paths for the ado libraries is shown in the tools
references box. Why are the paths for the ADO libraries
not available with VBA?

Function ReferenceInfo()

Dim strMessage As String
Dim strTitle As String
Dim refItem As Reference

On Error Resume Next

For Each refItem In References
If refItem.IsBroken Then
strMessage = "Missing Reference:" & vbCrLf & _
refItem.FullPath
Else
strMessage = "Reference: " & refItem.Name & vbCrLf _
& "Location: " & refItem.FullPath & vbCrLf
End If
Debug.Print strMessage
Next refItem

End Function
 
Top