[سؤال] خطأ في زرار التعديل - نسخة قابلة للطباعة

PHP كود :

Dim m As String
        Dim SQLstr2 As String = "SELECT nam FROM student  WHERE  nam= '" & (TextBox2.Text) & "'"
        ' Dim da = New OleDbDataAdapter(SQLstr, con)

        If CON.State() Then CON.Close()
        CON.Open()
        Dim cmd As New OleDbCommand(SQLstr2, CON)
        Dim dr As OleDbDataReader
        dr = cmd.ExecuteReader()
        Dim b As String = ""
        If dr.Read() = True Then
            m = dr.Item(0).ToString
            CON.Close()
        End If
        If TextBox2.Text = m Then
            MsgBox(" هذه الحالة مسجلة قبل ذلك  ", , "رسالة")
           
            Exit Sub
        End If

PHP كود :

Try
            Dim SavInto1 As New OleDb.OleDbCommand
            Dim Conn As New OleDbConnection(conStr)
            SavInto1.Connection = Conn
            SavInto1.CommandType = CommandType.Text
            SavInto1.CommandText = "UPDATE student set nam ='" & Trim(TextBox2.Text) & "', mob ='" & Trim(TextBox3.Text) & "' where id = " & TextBox1.Text & " "
            Conn.Open()
            SavInto1.ExecuteNonQuery()
            Conn.Close()
            MsgBox("تم التعديل بالنجاح", , "رسالة")
            Me.Refresh()
            '    m()
            mov()
        Catch ex As Exception
        End Try

PHP كود :

Dim m As String
        Dim SQLstr2 As String = "SELECT mob FROM student  WHERE  nam= '" & (TextBox2.Text) & "'"
        ' Dim da = New OleDbDataAdapter(SQLstr, con)

        If CON.State() Then CON.Close()
        CON.Open()
        Dim cmd As New OleDbCommand(SQLstr2, CON)
        Dim dr As OleDbDataReader
        dr = cmd.ExecuteReader()
        Dim b As String = ""
        If dr.Read() = True Then
            m = dr.Item(0).ToString
            CON.Close()
        End If
        If TextBox2.Text = m Then
            MsgBox(" هذه الحالة مسجلة قبل ذلك  ", , "رسالة")
           
            Exit Sub
        End If
        Try
            Dim SavInto1 As New OleDb.OleDbCommand
            Dim Conn As New OleDbConnection(conStr)
            SavInto1.Connection = Conn
            SavInto1.CommandType = CommandType.Text
            'SavInto1.CommandText = "UPDATE student set nam ='" & Trim(TextBox2.Text) & "', mob ='" & Trim(TextBox3.Text) & "' where id = " & TextBox1.Text & " "
            SavInto1.CommandText = "UPDATE student set  mob ='" & Trim(TextBox3.Text) & "' where id = " & TextBox1.Text & " "
            Conn.Open()
            SavInto1.ExecuteNonQuery()
            Conn.Close()
            MsgBox("تم التعديل بالنجاح", , "رسالة")
            Me.Refresh()
            '    m()
            mov()
        Catch ex As Exception
        End Try