Hi,


Anybody can help me......Doesnt display my record in my recordset....

Option Explicit
Private SaleMaster_BackOffice_RS As adodb.Recordset
Private Main_RS As adodb.Recordset
Dim TMP As adodb.Recordset
Private strConn_BackOffice As String
Private strConn_Main As String
Private rptApp As CRAXDRT.Application
Private rptReport As CRAXDRT.Report
Private rptDatabase As CRAXDRT.Database

Private Sub Command1_Click()
Dim strReportFilename As String
Prog.Value = 0
strReportFilename = "C:\ProductSales.rpt"
DoEvents
Call Create_Recordset
DoEvents
Call Process
DoEvents
Set rptApp = New CRAXDRT.Application
Set rptReport = rptApp.OpenReport(strReportFilename)
rptReport.Database.SetDataSource TMP, 3, 1
CRViewer1.ReportSource = rptReport
CRViewer1.ViewReport
Set DataGrid1.DataSource = TMP
End Sub

NOTE:

in the datagrid1 my record appear but not in crytal report.. (Crystal Report v7)


TIA