IF This.oReport.HasSavedData This.oReport.DiscardSavedData() ENDIF>I'm using COM-objects for both Crystal Reports and ADO RecordSets. Here is the code the loads the ADO RecordSet into Crystal:
>FUNCTION SetDataSource >LPARAMETERS lnPosition >LOCAL llRetValue, lnCount, i > >lnCount = THIS.oReport.Database.Tables.Count >llRetValue = .F. > >IF VARTYPE(lnPosition) = 'N' AND BETWEEN(lnPosition, 1, ALEN(THIS.aRecordSet, 1)) AND VARTYPE(THIS.aRecordSet[lnPosition]) = 'O' > llRetValue = .T. > FOR i = 1 TO lnCount > THIS.oReport.Database.Tables.Item(i).SetDataSource(THIS.aRecordSet[lnPosition]) > ENDFOR >ENDIF > >RETURN llRetValue >ENDFUNC >>