Pass a parameter from a web page to a SQL Server Stored Procedure

I have the following Stored Procedure in SQL Server 2008.
---------------------------------------------------------------------------------------------------------------------------------
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[pWellEventHistoryAddExpirationNotices]
      -- Add the parameters for the stored procedure here
    @p_MonthsToExpiration int,
    @p_WellEventHistoryID_out int output
AS
BEGIN
      -- SET NOCOUNT ON added to prevent extra result sets from
      -- interfering with SELECT statements.
      SET NOCOUNT ON;
    INSERT
    INTO [dbo].[WellEventHistory]
        (
            [WellID],
            [ClientID],
            [EventDate],
            [WellEventID]
        )
    -- Insert statements for procedure here
      SELECT dbo.WellEventHistory.WellID, dbo.WellEventHistory.ClientID, GetDate() AS EventDate, 32 AS WellEventID
      FROM dbo.WellEventHistory INNER JOIN dbo.Wells ON dbo.WellEventHistory.WellID = dbo.Wells.WellID
      WHERE (((dbo.WellEventHistory.WellEventID)=1 Or (dbo.WellEventHistory.WellEventID)=2) AND ((dbo.WellEventHistory.ExpirationDate)>GetDate()) AND

((dbo.Wells.PermitStatusID)=4) AND ((Month(dbo.WellEventHistory.ExpirationDate))=Month(DateAdd("m",@p_MonthsToExpiration,GetDate()))));
      
END
------------------------------------------------------------------------------------------------------------------------------
I have the following Visual Basic code for an aspx web page. I need to pass a value from the Me.MonthsToExpiration textbox control on an aspx page to the @p_MonthsToExpiration parameter in the Stored Procedure.
-------------------------------------------------------------------------------------------------------------------------------
   Protected Sub Button_Preview_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button_Preview.Click

        If (Session("report") Is Nothing) Then

            Dim rd As New ReportDocument
            rd.Load(Server.MapPath("ExpirationNoticesMailingLabels.rpt"))
            Dim boConnectionInfo As CrystalDecisions.Shared.IConnectionInfo

            For Each boConnectionInfo In rd.DataSourceConnections
                boConnectionInfo.SetLogon("UserName", "Password")
            Next

            Session.Add("report", rd)
            CrystalReportViewer1.ReportSource = Session("Report")
            rd.SetParameterValue("Months To Expiration", Me.MonthsToExpiration.SelectedValue)

            'Execute stored procedure.
            Dim dbcon As New SqlConnection
            dbcon.Open()
            Dim dbcmd As New SqlCommand("pWellEventHistoryAddExpirationNotices", dbcon)
            dbcmd.CommandType = System.Data.CommandType.StoredProcedure
            dbcmd.ExecuteNonQuery()
            dbcmd.dispose()
            dbcon.dispose()

        End If

    End Sub
-------------------------------------------------------------------------------------------------------------------------------
Thanks,