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
With cmd
.CommandText = "Select fld1, fld2,
fld3, ...from Table1"
.CommandType =
.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
With cmd1
.CommandText = "Select fld1, fld2, fld3,
fld5 ...from Table1 join Table2"
.CommandType =
.CommandTimeout = 15
End With

End If
rsBor1 = cmd1.Execute

Dim PrintOne As New CRMainReport

Dim crxSubreport1 As CrystalDecisions.CrystalReports.Engine.ReportDocum ent
crxSubreport1 = PrintOne.OpenSubreport

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