SQL Server Is Not Updating

I am in a fix where I cant seem to update my records.  I am trying to follow a template for an Event calendar and cant seem to get the update page working correctly.   basically the update on the server never occurs but the message is still returned.  Very confused is it my stored procedure?

Imports System.Data

Imports System.Data.SqlClientPartial Class _Default

Inherits System.Web.UI.PageProtected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Bind()

End SubSub Bind()Using Conn As New SqlConnection("Data Source=WINSERV;Initial Catalog=EventCalendar;User ID=antonio;Password=xxxx;User Instance=False")

Conn.Open()Dim cmd As New SqlCommand("sp_GetEvent", Conn)

cmd.CommandType = Data.CommandType.StoredProcedure

Dim ParameterID As New SqlParameter("@Event_ID", SqlDbType.Int, 4)ParameterID.Value = Request.QueryString("Event_ID")

cmd.Parameters.Add(ParameterID)Dim myDataReader As SqlDataReader

myDataReader = cmd.ExecuteReader

myDataReader.Read()txtapeDate.Text = myDataReader.Item("apeDate")

txtapEvent.Text = myDataReader.Item("apEvent")txtWho.Text = myDataReader.Item("Who")

txt_type.Text = myDataReader.Item("_type")txtEvent_ID.Text = myDataReader.Item("Event_ID")

myDataReader.Close()

Conn.Close()

End UsingEnd Sub

 Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click

 Dim APEvent As String = txtapEvent.Text

Dim Who As String = txtWho.TextDim apeDate As String = txtapeDate.Text

Dim Event_ID As Integer = txtEvent_ID.TextDim _type As Integer = txt_type.Text

'add it to the DBUsing Conn As New SqlConnection("Data Source=WINSERV;Initial Catalog=EventCalendar;User ID=antonio;Password=xxxx;User Instance=False")

Conn.Open()Dim cmd As New SqlCommand("sp_editSingleEvent", Conn)

cmd.CommandType = Data.CommandType.StoredProcedurecmd.Parameters.AddWithValue("@Who", Who)

cmd.Parameters.AddWithValue("@apEvent", APEvent)cmd.Parameters.AddWithValue("@apeDate", apeDate)

cmd.Parameters.AddWithValue("@_type", _type)cmd.Parameters.AddWithValue("@Event_ID", Event_ID)

cmd.Parameters.Add(New SqlParameter("@message", SqlDbType.VarChar, 200))cmd.Parameters("@message").Direction = ParameterDirection.Output

cmd.ExecuteNonQuery()Dim sMessage As String = Convert.ToString(cmd.Parameters("@message").Value)

Conn.Close()

lblMessage.Text = sMessage

End Using

End Sub

 

 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Response.Redirect("MainEvent.aspx")End Sub

End Class

 ===========Stored Procedure==========USE [EventCalendar]

GO

/****** Object: StoredProcedure [dbo].[sp_EditSingleEvent] Script Date: 06/13/2007 15:15:24 ******/

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GOALTER PROCEDURE [dbo].[sp_EditSingleEvent]

-- Add the parameters for the stored procedure here

@apeDate smalldatetime,

@apEvent nvarchar(250),

@who nvarchar (50),

@Event_ID int,

@message nvarchar (200)OUTPUT,@_type int

AS

Begin

Set @Message = 'Hasnt added yet'

UPDATE apEvent

SET apeDate=@apeDate, apEvent=@apEvent, Who=@Who, _type=@_type

WHERE Event_ID = @Event_ID

Set @message = 'its added'

END