Hi,

How to view more than 1 report connecting to MSaccess database.

We have a requirement to connect each report to each table in MSaccess database.

There are (3) reports connecting to MSACCESS tables using VB 6.0.
We need to display (3) reports simultaneously.

For my understanding, shall I am using (3) forms containg 3 report viewer controls to view reports

Is there any better way of doing it.


Dim CrDatabase As CRAXDRT.Database
Set CrDatabase = Report.Database

Set Report = crystal.OpenReport("c:\test.rpt1", 1)
Report.DiscardSavedData
rs.Open strSqlQuery1, conn, adOpenStatic, adLockReadOnly
CrDatabase.SetDataSource rs, 3, 1
form1.CrystalActiveXReportViewer1.ReportSource = Report
form1.CrystalActiveXReportViewer1.ViewReport
Sleep 1000

 Set rs = Nothing
 Set crystal = Nothing
 Set Report = Nothing

' for 2 nd Report


Set Report = crystal.OpenReport("c:\test.rpt1", 1)
rs.Open strSqlQuery2, conn, adOpenStatic, adLockReadOnly
CrDatabase.SetDataSource rs, 3, 1
form2.CrystalActiveXReportViewer2.ReportSource = Report
form2.CrystalActiveXReportViewer2.ViewReport
Sleep 1000

 Set rs = Nothing
 Set crystal = Nothing
 Set Report = Nothing


Thanks in advance