crystal reports dinamicos con visual basic 6

[borbonio]

Buenas tardes a todos,

el problema es que tengo que realizar una aplicacion que me genere reportes dinamicos, me tiene que mostrar los datos de cualquier consulta en un solo reporte de acuerdo a el tipo de reporte que se elija. es decir si elijen el reporte de pacientes selecciono la consulta de pacientes y ejecuto y mando los datos al reporte.
Tengo dos problemas, el primero es que al generar el reporte la consulta la ejecuta, pero no muestra los datos en el crystal report, me aparece en blanco, los datos si los extrae ya que hize pruebas con un parametro y si me extrae el dato.

aqui pongo el codigo:

Option Explicit
Private crApp As New CRAXDRT.Application
Private crReport As New CRAXDRT.Report


Private Sub Form_Load()
Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDRT.ParameterFieldDefinition

'Abrir el reporte
Screen.MousePointer = vbHourglass

mflgContinuar = True
Set rs = Nothing
rs.Open "Select * from pacientes", conn, adOpenStatic, adLockReadOnly
Set crReport = crApp.OpenReport(App.Path & "\General.rpt")
crReport.DiscardSavedData
crReport.Database.SetDataSource rs
crViewer.ReportSource = crReport
crViewer.ViewReport
End Sub

otro problema es que no encuentro una manera de desglosar los datos del recordset desde visual basic 6 y enviarlos a parameters fields o text object del reporte.

ojala me puedan ayudar, les agradecere mucho.
Gracias de antemano.
Saludos.