求一段，水晶报表，表中表(子表)的代码?

[xjb_netboy]

给一个报表的代码



Dim Sql As String
Dim CryApp As New CRAXDDRT.Application
Dim Report As CRAXDDRT.Report
Dim rs As New ADODB.Recordset


FrmCRpt.WindowState = 2
Screen.MousePointer = vbHourglass
Set Report = CryApp.OpenReport(App.Path & "\print\" & ReportName1 & ".rpt")
CRViewer91.ShowPreviousPage
Sql = "select * from table1"
rs.Open Sql, conn, 1, 1
Report.Database.SetDataSource rs
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
CRViewer91.Zoom 100
Screen.MousePointer = vbDefault



-------???问假如，我要加 入子报表 ReportName2.rpt 请问，怎么做？
sql="select * from table2"

请给一段代码吧！