hi,,

i have this code for viewing a report from my application but when i run the program and click on the report buttin i get this error:
report not found..

the kine colored in red is the one that i get the error in:
Code:
Private Sub Command1_Click()


    CrystalReport1.ReportFileName = App.Path & "rent.rpt"
    CrystalReport1.DiscardSavedData = True
    CrystalReport1.RetrieveDataFiles
   

    CrystalReport1.ReportSource = 0
    CrystalReport1.SQLQuery = "select * from rent order by {serial}"
    CrystalReport1.WindowTitle = "Rent system"
    CrystalReport1.Destination = crptToWindow
    CrystalReport1.PrintFileType = crptCrystal
    CrystalReport1.WindowState = crptMaximized
    CrystalReport1.SelectionFormula = "IsNull({Document.rent})"
    CrystalReport1.Action = 1

End Sub
any help please?