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