Solved using the code snippets.
Code:
Dim parameterField As ParameterField
Dim parameterField1 As ParameterField
Try
crReportDocument.Load("" & strRptPath & "" & strRptName & ".rpt")
Catch
MsgBox("Report: " & strRptName & ".rpt Not Found",MsgBoxStyle.Information)
End Try
parameterField = crReportDocument.ParameterFields("What Value/Settlement Date?")
parameterField.CurrentValues.AddValue(CDate("2007.02.27"))
parameterField1 = crReportDocument.ParameterFields("Cash or Non-Cash Trades (Y/N)")
parameterField1.CurrentValues.AddValue("Y")