Crystal Report 10 & VB6

hi guyz :) i really need ur help... i am new with crystal report 10.. i dont know how to use it with vb6. my database was protected with password

i saw some sample coding from the net:

Dim crxApp As CRAXDRT.Application
Dim crxRpt As CRAXDRT.Report

Private Sub Command1_Click()
Set crxApp = New CRAXDRT.Application
'To View the report
Set crxRpt = crxApp.OpenReport(App.Path & "\tor.rpt")
cr1.ReportSource = crxRpt
cr1.ViewReport

End Sub
it give me error that file not found... hope u can help me... thanks and God bless