RE:Reporte de Cristal Report y recordset...
Fijate con ésto, es para pasar un recordset desconectado a un reporte:
Private mobjReportApp As CRPEAuto.Application
Private WithEvents mobjPreviewWindow As CRPEAuto.Window
Private WithEvents mobjReport As CRPEAuto.Report
Dim objPreview As CRPEAuto.View
Set mobjReport = mobjReportApp.OpenReport(App.Path & "\Reports\MiReporte.rpt")
Set mobjReportApp = New CRPEAuto.Application
With mobjReport
.DiscardSavedData
.Database.Tables(1).SetPrivateData 3, miRecordset
.ProgressDialogEnabled = True
.DialogParentWindow = hWnd
With .PrintWindowOptions
.CanDrillDown = True
.HasCancelButton = True
.HasCloseButton = True
.HasExportButton = True
.HasGroupTree = False
.HasNavigationControls = True
.HasPrintButton = True
.HasPrintSetupButton = True
.HasProgressControls = True
.HasRefreshButton = True
.HasSearchButton = True
.HasZoomControl = True
.ShowDocumentTips = True
.ShowToolbarTips = True
End With
Set objPreview = .Preview
Set mobjPreviewWindow = objPreview.Parent
End With