Report Count not working

[Hollie]

Heres my code to generate the list of reports.

I get nothing out and temp = 0 but I have three reports!!

can anyone help?

H.

Private Sub Form_Load()
' Initialise list of reports

Dim temp As Integer
Dim temploop As Integer

Set ErrReport = CreateObject("Access.Application")
ErrReport.OpenCurrentDatabase "C:\db1.mdb"

temp = ErrReport.Reports.Count

For temploop = 0 To temp - 1
    lstReports.List(temploop) = ErrReport.Report(temploop).Name
Next

End Sub