Using DSOFile to get custom property for current database

[bobkohn]

Does anyone know how to use the DSOFile library to get at custom properties for the current Access database?

I have an Access data project that had a custom property I added named "myversion" , and I would like to get at that value and put it on a form. The project has some VBA code that looks like this:

Public Function MyVersion()
    Dim dso As DSOFile.OleDocumentProperties
    Set dso = New DSOFile.OleDocumentProperties
    dso.Open CurrentProject.FullName, ReadOnly:=True
    MyVersion = dso.CustomProperties("myversion").Value
    Set dso = Nothing
End Function

This generates a "Path/File acess error" error at the .Open statement, and I am assuming this is because the project is currently open. The code works fine if I replace CurrentProject. FullName with the path to another copy of the ADP that is not open.

Is there any way to do this? Thanks for your help ...