Does anyone know how to pass parameters from saleslogix to crystal 11?

I'm trying this

oCR.RDC.ParameterFields.Item(0).CurrentValues.Add "test param"

And getting this error

SalesLogix.Reporting.API: The argument value is invalid

Paramert name: value

I found this method

<p> 
 

    oCR.RDC.SetParameterValue "TestField", "test param"
 
but i still get the pop up asking me to enter the paramater value and it is blank
here is my full code
 Dim acctId     acctId = frmAccountDetail.CurrentID     Dim oCR, oCond, oConds, oMV      GlobalReportController.Init     Set oCR = GlobalReportController.CrystalReport     oCR.Family = "Account"     oCR.Name = "Testrpt"     oCR.PluginID = ""     oCR.Reload      Set oCond = New SLXReportCondition     oCond.Table = "ACCOUNT"     oCond.Field = "ACCOUNTID"     oCond.Value = "'" & acctId & "'"      Set oConds = oCR.ReportConditions()     oConds.Add oCond      oCR.ReportConditions = oConds     stop     oCR.RDC.ParameterFields.Item(0).ClearCurrentValueAndRange     oCR.RDC.SetParameterValue "TestField", "test param"       On Error Resume Next     GlobalReportController.ExportReportTo "Preview", ""     If Err.Number <> 0 Then         MsgBox "Error Exporting The Report" & vbCRLF & "Description: " & Err.Description & vbCRLF & "Source: " & Err.Source, vbOKOnly + vbCritical, "ERROR"         Err.Clear         Exit Sub     End If

is this this crrect way to call a crystal report and pass parameters in 8.1?

is there a way to see the value of the parameter when it changes?

i have oCR.RDC.ParameterFields.Item(0).Name to see the name of the parameter, but i'm not sure what property will let me see the value as i debug it

Here is some readable code

    Dim acctId

    acctId = frmAccountDetail.CurrentID

    Dim oCR, oCond, oConds, oMV

    GlobalReportController.Init

    Set oCR = GlobalReportController.CrystalReport

    oCR.Family = "Account"

    oCR.Name = "Testrpt"

    oCR.PluginID = ""

    oCR.Reload

    Set oCond = New SLXReportCondition

    oCond.Table = "ACCOUNT"

    oCond.Field = "ACCOUNTID"

    oCond.Value = "'" & acctId & "'"

    Set oConds = oCR.ReportConditions()

    oConds.Add oCond

    oCR.ReportConditions = oConds

    stop

    oCR.RDC.ParameterFields.Item(0).ClearCurrentValueAndRange

    oCR.RDC.SetParameterValue "TestField", "test param"

    On Error Resume Next

    GlobalReportController.ExportReportTo "Preview", ""

    If Err.Number <> 0 Then

        MsgBox "Error Exporting The Report" & vbCRLF & "Description: " & Err.Description & vbCRLF & "Source: " & Err.Source, vbOKOnly + vbCritical, "ERROR"

        Err.Clear

        Exit Sub

    End If