Fetching A Reports Description Property

I have list box of reports in a form and when selected i want to write the reports description propterty to a textbox.

I modified an example i found posted someplace (can't recall where) and it worked great - just like this (see below).

Then I put it into another database (exact same tables, form and and queries) and if there is a description in the query property it will always give me the error "Type mismatch".

Why?
The only difference I can see is that the working example db had the following References selected:
Visual Basic For Applications
Microsoft Access 9.0 Object Library
Microsoft DAO 3.6 Oject Library
... in that order.

My database where it is not working has selected:
Visual Basic For Applications
Microsoft Access 9.0 Object Library
OLE Automation
Microsoft ActiveX Data Objects 2.1 Library
Microsoft DAO 3.6 Object Library

Is there a better way to fetch this property?
Or is there a setting I need to change - keeping in mind that changing these settings may cause the rest of my db to fail now...

Thanks A lot for any help you can give.




Function ReportDescription(ReportName As Variant) As String
On Error GoTo Err_ReportDescription
Dim db As Database
Dim con As Container
Dim doc As Document
Dim prp As Property
Set db = CurrentDb()
Set con = db.Containers("Reports")
Set doc = con.Documents(ReportName)
Set prp = doc.Properties("description")

ReportDescription = prp.Value
Exit_ReportDescription:
Exit Function

Err_ReportDescription:
If Err.Number = 3270 Then
ReportDescription = "There is no description for this Report"
Resume Exit_ReportDescription
Else
MsgBox Err.Description
Resume Exit_ReportDescription
End If
End Function

Private Sub lstReports_Click()
Me!txtReportDesc = ReportDescription("rpt" & Me!lstReports)
'Me!txtReportDesc = ReportDescription(Me!lstReports)
End Sub