Missing Parameter Values

Got a report that uses a stored procedure with 4 parameters - Page-init looks like this:

Dim doc As ReportDocument = New ReportDocument

Dim pv As ParameterDiscreteValue = New ParameterDiscreteValue

doc.Load("c:\reports\HomeStatement.rpt")

With doc.DataDefinition

pv.Value = "xxx"

.ParameterFields("@HomeID").CurrentValues.Clear()

.ParameterFields("@HomeID").CurrentValues.Add(pv)

pv.Value = "xxx"

.ParameterFields("@aUserID").CurrentValues.Clear()

.ParameterFields("@aUserID").CurrentValues.Add(pv)

pv.Value = "xxx"

.ParameterFields("@aPW").CurrentValues.Clear()

.ParameterFields("@aPW").CurrentValues.Add(pv)

pv.Value = "xxx""

.ParameterFields("@LastName").CurrentValues.Clear()

.ParameterFields("@LastName").CurrentValues.Add(pv)

End With

myCrystalReportViewer.ReportSource = doc

End Sub

Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init

ConfigureCrystalReports()

End Sub

So I run the thing and I get "Missing Parameter Values"

Here's what I did in the Immediate window:

doc.DataDefinition.ParameterFields.Count

4

doc.DataDefinition.ParameterFields(0).HasCurrentValue

True

doc.DataDefinition.ParameterFields(1).HasCurrentValue

True

doc.DataDefinition.ParameterFields(2).HasCurrentValue

True

doc.DataDefinition.ParameterFields(3).HasCurrentValue

True

Anybody got any ideas