pasar 1 Recordset de vb6 a crystal reports

[mkatas]

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 el siguiente:

Private Sub Form_Load()
Set crystal = New CRAXDRT.Application
Set Report1 = crystal.OpenReport(App.Path & "\RPT\report1.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.