Access 2000, ADP and ADE Files

I have a function to determine whether a database has been converted to the MDE format:
Function adhIsMDE(dbAny As Database) As Boolean
Dim varret as variant
On Error Resume Next
varret = dbAny.Properties(“MDE”)
adhIsMDE = (varret = “T”) And (Err.Number = 0)
End Function

But I need find a similar function to determine whether a ADP File has been converted to ADE File, Please help me…