llamar a crystal report pasando un recordset

dkatas
16 de Diciembre del 2003
Buenas, el tema es el siguiente:
utilizo vb6 / cr9.2 / SQLserver2000
tengo montado un formulario que lo que hace es filtrar una tabla. Con esto consigo un recordset que quiero enviar al report para imprimir, pero no lo consigo.
El código que tengo es este:
Private Sub Form_Load()
Set crystal = New CRAXDRT.Application
Set Report1 = crystal.OpenReport(App.Path & "RPTreport1.rpt")

Screen.MousePointer = vbHourglass
Report1.DiscardSavedData
Report1.Database.SetDataSource myRecordset
CRViewer91.ReportSource = Report1
CRViewer91.ViewReport
Screen.MousePointer = vbDefault

End Sub

Alguien me puede ayudar, por favor?
Gracias.