I would like to check if a report
consisting of a main report and a subreport
can get data from different tables? My
report is only displaying correctly for
main report and the subreport only have
fld1, fld2, fld3 (all three fields from
Table1)displaying correctly, and fld4 (from
Table2) is empty. Can anyone help, please?
Thanks in advance.

Dim rsBor As ADODB.Recordset
rsBor = New ADODB.Recordset
Dim cmd As ADODB.Command
cmd = New ADODB.Command
cmd.let_ActiveConnection(cnn)
With cmd
.CommandText = "Select fld1, fld2,
fld3, ...from Table1"
.CommandType =
ADODB.CommandTypeEnum.adCmdText
.CommandTimeout = 15
End With

End If
rsBor = cmd.Execute



Dim rsBor1 As ADODB.Recordset
rsBor1 = New ADODB.Recordset
Dim cmd1 As ADODB.Command
cmd1 = New ADODB.Command
cmd1.let_ActiveConnection(cnn)
With cmd1
.CommandText = "Select fld1, fld2, fld3,
fld5 ...from Table1 join Table2"
.CommandType =
ADODB.CommandTypeEnum.adCmdText
.CommandTimeout = 15
End With

End If
rsBor1 = cmd1.Execute


Dim PrintOne As New CRMainReport
PrintOne.SetDataSource(rsBor)

Dim crxSubreport1 As CrystalDecisions.CrystalReports.Engine.ReportDocum ent
crxSubreport1 = PrintOne.OpenSubreport
("subrep1.rpt")
crxSubreport1.SetDataSource(rsBor1)

PrintOne.PrintToPrinter(1, False, 0, 0)