Crystal report no muestra datos del recordset

[borbonio]

Buenas tardes a todos,

tengo un problema con un reporte que creo en crystal report 9 con visual basic 6, el problema es que creo una consulta y genero el reporte, pero no me muestra los datos del recordset, me aparece el reporte en blanco, los datos si los trae el recorset pero no me los muestra en el reporte.

aca pongo mi codigo:
' el recordset y la conexion son globales

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

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

Otra es que intento mostrar los datos del recordset en el reporte, hago un for para que me desglose fila por fila el rs y lo muestre en el reporte, pero me muestra solo la ultima fila, este es el codigo:

Set crParamDefs = crReport.ParameterFields
Dim NumRows As Integer
Dim NumFields As Integer
Dim i As Integer
NumRows = rs.RecordCount
NumFields = rs.Fields.Count

For i = 1 To NumRows
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "texto1"
crParamDef.AddCurrentValue (rs.Fields(0))
Case "texto2"
crParamDef.AddCurrentValue (rs.Fields(1))
Case "texto3"
crParamDef.AddCurrentValue (rs.Fields(2))
End Select
Next
rs.MoveNext
Next i

Set crParamDefs = Nothing
Set crParamDef = Nothing

me muestra solo el ultimo registro y no todos en el reporte, si alguien me podria ayudar le agradeceria mucho.

Saludos Cordiales..