Server has not yet been opened error message

[Jefftopia]

I am attempting to access a CR Report through Vb6 using parameters. Here is my code:

Private Sub mnuView2_Click()

'Run Report.
Screen.MousePointer = vbHourglass
frmRptView.Show
rptWriteUp.ParameterFields.Item(1).AddCurrentValue CInt(frmWriteUp.txtWU_id.Text)
frmRptView.CRViewer1.ReportSource = rptWriteUp
frmRptView.CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub

I am getting the following error-->

Crystal Report Viewer:

Server has not yet been opened

HELP!