Parameters Ignored, Render Report From VB .Net Application

I seem to be unable to pass parameters from a VB .Net application to Reporting Services.

Before I added the parameters to the query, I got all the rows back. So I know the application is basically working. Now that I have added the parameters, I get nothing.

I thought the SetExecutionParameters function would help, but my syntax is wrong and it fails.

I would appreciate any hint as to what step I am missing.


Report setup:

Parameters

Name Value
@Report =Parameters!Report.Value
@Corp =Parameters!Corp.Value
@Dept =Parameters!Dept.Value

Query conditions

WHERE Report = 'BudgetVarianceSummary'
AND PeriodEnd = CONVERT(DateTime,CONVERT(char,GETDATE()- DATEPART(day,GETDATE()),112))
AND Report = @Report
AND Corp = @Corp
AND Dept = @Dept


VB Code snippet:

Dim reportPath As String = "/FinancialReports/BudgetVarianceSummary"
Dim format As String = "PDF"

' Prepare report parameter.
Dim parameters(3) As ParameterValue
parameters(0) = New ParameterValue()
parameters(0).Name = "Report"
parameters(0).Value = "BudgetVarianceSummary"
parameters(1) = New ParameterValue()
parameters(1).Name = "Corp"
parameters(1).Value = "10"
parameters(2) = New ParameterValue()
parameters(2).Name = "Dept"
parameters(2).Value = "7255"


Dim execInfo As New ExecutionInfo
Dim execHeader As New ExecutionHeader()
Dim SessionId As String
Dim extension As String = ""

rs.ExecutionHeaderValue = execHeader
execInfo = rs.LoadReport(reportPath, historyID)

'This line of code fails
'rs.SetExecutionParameters(parameters, "en-us")

result = rs.Render(format, devInfo, extension, encoding, mimeType, warnings, streamIDs)