Stored Procedure Not Updating Database (no Errors Appearing)

Hi All,





I have a stored procedure (works form the SQL side). It is supposed to update a table, however it is not working, please help. What is supposed to happen is I have a delete statement deleting a payment from the payment table. When the delete button is pushed a trigger deletes the payment from the payment table and transfers it to the PaymentDeleted table. The stored procedure is supposed to update the PaymentDeleted table with the empID and reason for deleting, the delete and transfer work fine, however these 2 fields are not updated. Below is the sp and below that is the vb code. Thanks, Karen











ALTER PROCEDURE dbo.PaymentDeletedInfoTrail (@EmpID_WhoDeleted varchar(10), @Reason_Deleted varchar(255), @PmtDeletedID int)


AS


BEGIN





UPDATE dbo.PaymentDeleted


SET EmpID_WhoDeleted = @EmpID_WhoDeleted


WHERE PmtDeletedID = @PmtDeletedID





UPDATE dbo.PaymentDeleted


SET Reason_Deleted = @Reason_Deleted


WHERE PmtDeletedID = @PmtDeletedID





END











Private Sub cmdSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSubmit.Click


Me.Validate()


If Me.IsValid Then


Dim DR As SqlClient.SqlDataReader





Dim strPmtID As String


strPmtID = lblPmtIDDel.Text





Dim MySQL As String


MySQL = "DELETE From Payment WHERE PmtID = '" & strPmtID & "'"


Dim MyCmd As New SqlClient.SqlCommand(MySQL, SqlConnection1)


SqlConnection1.Open()


DR = MyCmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)


SqlConnection1.Close()








Dim strDeletePmt As String


strDeletePmt = lblPmtIDDel.Text





Dim cmd As New SqlClient.SqlCommand("PaymentDeletedInfoTrail", SqlConnection1)


cmd.CommandType = CommandType.StoredProcedure





Dim myParam As SqlClient.SqlParameter


myParam = cmd.Parameters.Add(New SqlClient.SqlParameter("@PmtDeletedID", SqlDbType.Int))


myParam.Direction = ParameterDirection.Input


myParam.Value = lblPmtIDDel.Text





myParam = cmd.Parameters.Add(New SqlClient.SqlParameter("@EmpID_WhoDeleted", SqlDbType.VarChar))


myParam.Value = txtEmpIDDelete.Text





myParam = cmd.Parameters.Add(New SqlClient.SqlParameter("@Reason_Deleted", SqlDbType.VarChar))


myParam.Value = txtDeleteComments.Text





SqlConnection1.Open()


cmd.ExecuteNonQuery()


SqlConnection1.Close()





End If


Response.Redirect("PaymentVerification.aspx")


End Sub