在VB代码中调用水晶报表中的子报表问题

水晶报表数据源连接的ttx文件，子报表是用菜单中“insert->subreport"的设置向导添加的，主要功能是按部门统计汇总主报表中的数据，就是子报表中一个部门显示一行，子报表显示在主报表的最后一页。
我现在在代码中是这样调用的：
  Set reportDB = cr_report.Database
  Set reportTables = reportDB.Tables
  Set reportTable = reportTables.Item(1)
   
  Dim cr_subreport As crpeauto.Report
  Dim subReportDB As crpeauto.Database
  Dim subReportTables As crpeauto.DatabaseTables
  Dim subReportTable As New crpeauto.DatabaseTable

  Set cr_subreport = cr_report.OpenSubreport("Summary")
  Set subReportDB = cr_subreport.Database
  Set subReportTables = subReportDB.Tables
  Set subReportTable = subReportTables.Item(1)
'----绑定主表数据源
  reportTable.SetPrivateData 3, rs
'----绑定子表数据源
  subReportTable.SetPrivateData 3, rs1

代码执行没有错误，可是主表信息预览完成后，该到子表预览时，就提示"unable to access first record",不知是哪里出了问题，希望各位高手帮忙看看。

肯请各位高手出招……
谢谢！