مشكلة في امر Update

Imports System.Data

Imports System.Data.SqlClient

Partial Class Activation

Inherits System.Web.UI.Page

Protected Sub ButActv_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButActv.Click

Dim Con As New SqlConnection

Dim Con1 As New SqlConnection

Dim ComSel As New SqlCommand

Dim Reader As SqlDataReader

Dim ComIns As New SqlCommand

Con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database4Plant.mdf;Integrated Security=True;User Instance=True"

Con1.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database4Plant.mdf;Integrated Security=True;User Instance=True"

ComSel.Connection = Con

ComIns.Connection = Con1

ComSel.CommandText = "Select * From information Where Email_Name ='" + TextEmail.Text + "' and ActivationID = " + TextActv.Text + ""

Con.Open()

Reader = ComSel.ExecuteReader()

Reader.Read()

If Reader.HasRows = True Then

Con1.Open()

ComIns.CommandText = "UPDATE Information SET JopID = @J , Activation= @A , ActivationID = @AID Where ( User_ID=" + Reader("User_ID") + ")"

ComIns.Parameters.AddWithValue("@A", "Yes")

ComIns.Parameters.AddWithValue("@AID", 0)

ComIns.Parameters.AddWithValue("@J", 0)

ComIns.ExecuteNonQuery()

Con1.Close()

ElseIf Not Reader.HasRows = True Then

LabelErorr.Text = "خطاء في رمز التفعيل"

LabelErorr.Visible = True

End If

Con.Close()

End Sub

End Class

تفضل الله يعطيك العافيه

"UPDATE Information SET JopID = @J , Activation= @A , ActivationID = @AID Where ( User_ID = " + Reader("User_ID") + " )

"UPDATE Information SET JopID = @J , Activation= @A , ActivationID = @AID Where ( User_ID = " & Reader("User_ID") & " )