Active Data Report creation for ado recordset

I'm wanting to pass an ado recordset to the crystal engine from vb6.

From an article at http://support.seagatesoftware.com/library/kbase/articles/c2002389.asp I shuld be able to do this with the vb code below. But an article at http://support.seagatesoftware.com/library/kbase/articles/c2002616.asp explains that to avoid an error the report must be an active data report which uses the active data driver.

My question is, how do you create an active data report?

I have tried File|New|Custom>>> which gives the 'DataFile' option, but it seems to require either an ado connection string or ODBC DSN, where as I want to define the report so that I can pass the rs at runtime.

There's also the dictionary option which i tried some time ago.


VB code:

Dim crpApplication As CRPEAuto.Application
Dim crpReport As CRPEAuto.Report
Dim crpDatabase As CRPEAuto.Database
Dim crpTables As CRPEAuto.DatabaseTables
Dim crpTable As CRPEAuto.DatabaseTable

Set crpApplication = CreateObject("crystal.crpe.application")
     
Set crpReport = crpApplication.OpenReport(App.Path & "\test.rpt")

Set crpDatabase = crpReport.Database
Set crpTables = crpDatabase.Tables
Set crpTable = crpTables.Item(1)

I then pass the report an ado recordset as follows:

Call crpTable.SetPrivateData(3, adoRS)
crpReport.Preview