在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",不知是哪里出了问题，希望各位高手帮忙看看。