i am currently developing a client-server (n-tier) project to which I have just added crystal reports 10 references (client side) and a crystal report viewer component to a client form called frmReports. the project is an MDI and the reports form itself is a child form, from which the reports are initiated

i want to display various reports (each require parameters) with the viewer from the vb form, via the use of the references,component etc. for now, i simply want to get the report displaying with crystal's own parameter dialog box being displayed in readiness for input, prior to the report data being displayed on screen.

note: my project already includes references to the crystal reports 10 design designer and runtime and the reports form includes the crystal reports 10 viewer lib component.

MY PROBLEM IS :i have managed to get the sub working as far as the crystal parameters dialog displays for me to enter the data but, alas, after that nothing seems to happen.

I would appreciate some help. can someone plz help me solve the problem of reports not displaying?

i have written the following code so far

[client side form code]
this sub passes the report path (predefined) and the report name (strReport) etc to the class
'=========================================================Private Sub OpenManagementReport(strReport As String)
'=========================================================Dim clsCrystalReport As OfficeMateClient.clsManagementReport
Dim strSubFuncName As String

strSubFuncName = "frmReports:OpenManagementReport"
On Error GoTo ErrHandler

Set clsCrystalReport = New OfficeMateClient.clsManagementReport
clsCrystalReport.ReportPath = MANAGEMENT_REPORTS_PATH
clsCrystalReport.ReportFile = strReport
clsCrystalReport.BuildReport
Set clsCrystalReport = Nothing

Exit Sub
ErrHandler:
ErrorHandling strSubFuncName, Err.Number, Err.Description, Err.Source

End Sub


[client side class code]

Private mstrReportPath As String
Private mstrReportFile As String

Public Property Get ReportPath() As String
ReportPath = mstrReportPath
End Property

Public Property Let ReportPath(ByVal vNewValue As String)
mstrReportPath = vNewValue
End Property

Public Property Get ReportFile() As String
ReportFile = mstrReportFile
End Property

Public Property Let ReportFile(ByVal vNewValue As String)
mstrReportFile = vNewValue
End Property

'=========================================================Public Sub BuildReport()
'=========================================================Dim strSubFuncName As String
Dim cryApplication As CRAXDDRT.Application
Dim cryReport As CRAXDDRT.Report

strSubFuncName = "clsManagementReport.BuildReport"
On Error GoTo ErrHandler

Set cryApplication = New CRAXDDRT.Application
Set cryReport = cryApplication.OpenReport(mstrReportPath & mstrReportFile)
frmReports.cryViewer.ReportSource = cryReport
frmReports.cryViewer.ViewReport

Set cryReport = Nothing
Set cryApplication = Nothing

Exit Sub
ErrHandler:
MsgBox "Client Class Error Source " & strSubFuncName & vbCrLf _
& "Error Number " & Err.Number & vbCrLf _
& "Error Desc " & Err.Description & vbCrLf _
& "Error Source " & Err.Source
End Sub