Visual Basic - Pocos parametros.Se esperaba 2

Estoy intentando pasarle parametros al crystal 9.0 desde visual 6.0 y cuando le paso 1 o 2 parametros hace el reporte sin problemas. El problema viene cuando le intento pasar mas parametros siempre me aparece un mensaje de error del tipo:
Pocos parametros. Se esperaba 2
La consulta SQL está bien o sea que el error tiene que estar en el codigo del visual pero no puedo encontrarlo. A continuación lo adjunto a ver si alguien me puede echar una mano:

Option Explicit
Dim crxApplication As New CRAXDRT.Application
Public Report As CRAXDRT.Report

Private Sub Form_Load()
Dim crxDatabaseTable As CRAXDRT.DatabaseTable
Dim crxParameterField As CRAXDRT.ParameterFieldDefinition

'abrimos el reporte
Set Report = crxApplication.OpenReport(App.Path & "\pruebax.rpt")

For Each crxDatabaseTable In Report.Database.Tables
crxDatabaseTable.Location = App.Path & "/inquidesa97.mdb"
Report.Database.Tables(1).SetSessionInfo "", Chr(10) & "inquidesa2080"
Next crxDatabaseTable

Set crxParameterField = Report.ParameterFields.Item(1)
crxParameterField.AddCurrentValue ("PEPE")
Set crxParameterField = Report.ParameterFields.Item(2)
crxParameterField.AddCurrentValue ("LOPEZ")
Set crxParameterField = Report.ParameterFields.Item(3)
crxParameterField.AddCurrentValue (CDate("1-1-02"))
Set crxParameterField = Report.ParameterFields.Item(4)
crxParameterField.AddCurrentValue (CDate("27-7-03"))

CRViewer.ReportSource = Form2.Report
CRViewer.ViewReport
End Sub