Not all records displayed on CR9.2

Hello All
I don't understand why not all records displayed on my CR (CR 9.2 + VB6) ..
I have to click "refresh" button to display all of them..
please advise ..what I missed?

thanks & regards



Option Explicit
Dim ConnInfo As CRAXDRT.ConnectionProperties
Dim CRReport As New CRAXDRT.Report
Dim CRApp As CRAXDDRT.Application


Private Sub LoadReport()
On Local Error GoTo errhand
Dim ConnInfo As CRAXDRT.ConnectionProperties
Dim CRReport As New CRAXDRT.Report
Dim CRApp As CRAXDDRT.Application

Dim mReport As String, mSQLString As String, mReportComments As String, mGroupTree As Boolean

mReport = ClsCReport.CReport
mSQLString = ClsCReport.SQLString
mReportComments = ClsCReport.ReportComments
mGroupTree = ClsCReport.GroupTree

Set CRApp = New CRAXDDRT.Application
Set CRReport = CRApp.OpenReport(mreport)
CRReport.ReportComments = mReportComments

Set ConnInfo = CRReport.Database.Tables(1).ConnectionProperties
CRReport.Database.Tables(1).DllName = CR_DLLNAME
ConnInfo.DeleteAll
ConnInfo.Add "Database Name", CR_REPORTDB
ConnInfo.Add "Database Password", CR_REPORTDBPASS

CRReport.SQLQueryString = mSQLString
CRViewer91.ReportSource = CRReport

CRViewer91.ViewReport

try adding

Code:

---

me.CRViewer9.Refresh

---

just before

Code:

---

me.CRViewer9.ViewReport

---

Crystal has an option called "Save Data With Report", which by default is on and when on the report must be Refreshed before the database is queried again.

You can turn the option off either in Crystal (file menu) or through the CRAXDRT.Report object in VB.