hi i am giving my code below.
(I am getting the error "server has not yet been opened"

my application backend is sqlserver7.0
Set objData = CreateObject("orderentry.clsCMShipments", g_intServerName)
blnSuccess = objData.getCalenderShipments(rstData)
Set rptMainReport = appmain.OpenReport(AddDirSep(App.Path) & "rptCalender.rpt"

rptMainReport.Database.SetDataSource rstData
Set rptSubReport = rptMainReport.OpenSubreport("subreport1"

rptSubReport.Database.SetDataSource rstData
Screen.MousePointer = vbArrow
CRViewer1.ReportSource = rptMainReport
CRViewer1.DisplayGroupTree = False
CRViewer1.EnableExportButton = False
CRViewer1.ViewReport
i am getting the recordset from the middletier and populating in the report using(active data method).
thanks in advance
ven(programmer)