Calling Crystal report from VB6 1

[jadoogar]

I have migrated to Crystal 8.5 from 7.0
I have problem in how to call report developed from VB
I put a control called CRVreport which is Crviewer
and give code

repsource = "c:\powerproject\substation.rpt"
CRVReport.ReportSource = App.Path & "substation.rpt"
CRVReport.ViewReport

Can anyone give a better method

 

[jadoogar]

I solved it
I put a crystalreport viewer called it CRVreport
and added code
Declaration
Dim crxApp As New CRAXDRT.Application
Dim crxRpt As CRAXDRT.Report
in option button for report click event added
Set crxRpt = crxApp.OpenReport(App.Path & "\nameofreport")
showreport

Showreport is a module with code
CRVReport.Visible = True
CRVReport.ReportSource = crxRpt
CRVReport.ViewReport
cmdclose.Visible = True
CRVReport.Top = 20
CRVReport.Left = 20
CRVReport.Height = Me.Height - 1000
CRVReport.Width = Me.Width - 200
cmdclose.Top = CRVReport.Top + CRVReport.Height + 100