ADO Recordset appears empty in report

[samonsey]

I have a report (8.5) based on a TTX file to which I pass an ADO recordset using the VB6 code below:

     Set Rst = oEvent.GetDailyTelecons(datStart)
            
     Set rptReport = rptDailyTelecons
            
     Set crdDatabase = rptReport.Database
     Set crtTable = crdDatabase.Tables(1)
     For Each crtTable In crdDatabase.Tables
         If crtTable.Name = "DailyTelecons_ttx" Then
             crtTable.SetDataSource Rst, 3
         End If
     Next

I know the recordset has records, but none appear on the report. When I base the report on a direct connection to the database (not acceptable in production) the data shows up.

Any ideas would be greatly appreciated.

Thanks,
Asa Monsey
samonsey@houston.rr.com
Maxim Group Consultant
Visual Basic / SQL Server