>I use CR 7.0 and use this syntax to pass a ADO recordset to it:
>
>

        'Open report
>        Set objCR = CreateObject("Crystal.CRPE.Application")
>        Set gReport = objCR.OpenReport(gReportPath & "rptStockGain.rpt")
>
>        Set rptDB = gReport.Database
>        Set rptTables = rptDB.Tables
>        Set rptTable = rptTables.Item(1)
>        rptTable.SetPrivateData 3, rstReport
>
>        Set rptTable = rptTables.Item(2)
>        rptTable.SetPrivateData 3, rstHeader

>
>In which rstReport is my detail and rstHeader is my header fields.

Thanks,

I'll try this out. (I think I did something similar before but was getting errors at the rptTables.Item(1) part)

Pete