parametros a crystal reports desde visual basic 6

[borbonio]

Buenas Tardes,

el problema es el siguiente:
Tengo una aplicacion que debe imprimir datos de una consulta en un crystal reports, en el crystal report tengo 3 parametros lo cuales son:

?Texto1
?Texto2
?Texto3

y mi codigo en visual basic 6 es:

sql = "Select nombre, direccion, telefono from pacientes"
rs.Open sql, conn, adOpenStatic, adLockReadOnly

Set crReport = crApp.OpenReport(App.Path & "\Reporte.rpt")
crReport.DiscardSavedData
crReport.Database.SetDataSource rs
crViewer.ReportSource = crReport
crViewer.ViewReport

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

'aqui agrego los datos del recordset a los parametros del reporte
For i = 1 To NumRows
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "Texto1"
crParamDef.AddCurrentValue (rs.Fields(1))
Case "Texto2"
crParamDef.AddCurrentValue (rs.Fields(2))
Case "Texto3"
crParamDef.AddCurrentValue (rs.Fields(3))
End Select
Next
'se mueve al siguiente registro
rs.MoveNext
Next i

Set crParamDefs = Nothing
Set crParamDef = Nothing

el codigo no me muestra error, pero en el reporte de crystal solo me muestra el ultimo registro, digamos que si la consulta devuelve 5 registros solo me imprime el ultimo en el crystal reports.

por favor si alguien me puede asesorar o de plano que me diga si se puede hacer lo que yo quiero, ya que soy muy nuevo en esto.

de antemano gracias a todos por su ayuda