Error: Procedure or function has too many arguments specified.

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        lblProduct.Text = GetProductName(CType(Request.Params("id").ToString(), Integer))
        pnlThanks.Visible = False
        pnlForm.Visible = True
 
    End Sub
 
Public Function GetProductName(ByVal ID As Integer) As String
 
        ' Create Instance of Connection and Command Object
        Dim myConnection As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
        Dim myCommand As SqlCommand = New SqlCommand("GetProductName", myConnection)
 
        ' Mark the Command as a SPROC
        myCommand.CommandType = CommandType.StoredProcedure
 
        ' Add Parameters to SPROC
        Dim parameterID As SqlParameter = New SqlParameter("@ID", SqlDbType.Int, 4)
        parameterID.Value = ID 'CType(Request.Params("id").ToString(), Integer)
        myCommand.Parameters.Add(parameterID)
 
        Dim parameterBriefDescription As New SqlParameter("@BriefDescripton", SqlDbType.VarChar, 255)
        parameterBriefDescription.Direction = ParameterDirection.Output
        myCommand.Parameters.Add(parameterBriefDescription)
 
        ' Open the connection and execute the Command
        myConnection.Open()
        myCommand.ExecuteNonQuery()
        myConnection.Close()
 
        ' Return the customerID
        Dim productName As Integer = parameterBriefDescription.Value
 
        Return productName
 
    End Function
 
**********8PROC*********
CREATE Procedure GetProductName
(
    @ID    int
)
AS
SELECT 
    BriefDescription
FROM 
    psiProducts
WHERE 
    ID = @ID
AND
    VisibleToRetail = 1
GO
 
******** end SPROC *********