What I put in below worked great for me. I had to cycle multiple command line options into parameters. Reply if you have any questions.
Dim CrxApp As New CRAXDRT.Application
Dim CrxRpt As CRAXDRT.Report
howManyParams = CrxRpt.ParameterFields.Count
Do While curparamline < howManyParams
curparamline = curparamline + 1
' This clears and sets the parameter field if String Type Parameter
If CrxRpt.ParameterFields(curparamline).ValueType = crStringField Then
CrxRpt.ParameterFields(curparamline).ClearCurrentValueAndRange
CrxRpt.ParameterFields(curparamline).AddCurrentValue ("StringParameter"

End If
' This clears and sets the parameter field if Date Type Parameter
If CrxRpt.ParameterFields(curparamline).ValueType = crDateField Then
CrxRpt.ParameterFields(curparamline).ClearCurrentValueAndRange
CrxRpt.ParameterFields(curparamline).AddCurrentValue (DateValue("01/01/01"

)
End If
' This clears and sets the parameter field if DateTime Type Parameter
If CrxRpt.ParameterFields(curparamline).ValueType = crDateTimeField Then
CrxRpt.ParameterFields(curparamline).ClearCurrentValueAndRange
CrxRpt.ParameterFields(curparamline).AddCurrentValue (DateValue("01/01/01 09:00:00"

)
End If
Loop