Whenever I try to populate the data to my report it throws up the screen asking for the year saying....

The report you requested requires further information asking for the year....

I'm already putting the year in though so I don't know what's wrong. Here's the code, could someone help me.


Imports System.Data.SqlClient
Public Class ApplicantPaymentByYear1
    Inherits System.Web.UI.Page

    Protected WithEvents CrystalReportViewer1 As CrystalDecisions.Web.CrystalReportViewer
    Protected WithEvents ApplicantPaymentByYear As FTS.ApplicantPaymentByYear

    Dim strYear As String
    Dim MyReport As CrystalDecisions.CrystalReports.Engine.ReportDocum ent
    Dim connFTS As SqlConnection

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub


    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub SpWithViewer(ByVal spParameter1 As String, ByVal spParameter2 As String)
        Dim ParameterFields As CrystalDecisions.Shared.ParameterFields
        Dim ParameterField1 As CrystalDecisions.Shared.ParameterField
        Dim spValue1 As CrystalDecisions.Shared.ParameterDiscreteValue
        ParameterFields = New CrystalDecisions.Shared.ParameterFields
        ParameterField1 = New CrystalDecisions.Shared.ParameterField
        ParameterField1.ParameterFieldName = "@Year"
        spValue1 = New CrystalDecisions.Shared.ParameterDiscreteValue
        spValue1.Value = (spParameter1)
        ParameterField1.CurrentValues.Add(spValue1)
        ParameterFields.Add(ParameterField1)
        CrystalReportViewer1.ParameterFieldInfo = ParameterFields
        CrystalReportViewer1.ReportSource = ApplicantPaymentByYear
    End Sub