مساعده في كود تحقق من الرقم السري السابق

كود :

''======================================================================

            If Textpass1.Text <>  Then

                MessageBox.Show("كلمة المرور السابقة خـاطئة", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

                Exit Sub

            End If



            '======================================================================

            If Textpass2.Text <> Textpass3.Text Then

                MessageBox.Show("عدم تطابق كلمة المرور الجديده", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

                Exit Sub

            End If



            Dim updataOk As Boolean = winClass.SQLExicute("UPDATE Usaers SET Password ='" & Textpass2.Text & "' WHERE Password = " & Textpass1.Text)

            If updataOk = True Then

                MsgBox("تمت عملية تعديل البيانات بنجاح", MsgBoxStyle.Information, "تأكيد عملية التعديل")

                ClearAll()

            Else

                MsgBox("الرجاء تأكيد من البيانات المدخله", MsgBoxStyle.Critical, "خطأ")

                ClearAll()

            End If

كود :

Private Sub Navsave_LinkClicked(sender As Object, e As DevExpress.XtraNavBar.NavBarLinkEventArgs) Handles Navsave.LinkClicked

        Try



            If Textpass1.Text = "" Then

                MessageBox.Show("أدخل كلمة المرور الحالية ", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

                Textpass1.Focus()

                Exit Sub

            End If



            If Textpass2.Text = "" Then

                MessageBox.Show("أدخل كلمة المرور الجديدة ", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

                Textpass2.Focus()

                Exit Sub

            End If

            If Textpass3.Text = "" Then

                MessageBox.Show("تأكيـد كلمة المرور الجديدة ", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

                Textpass3.Focus()

                Exit Sub

            End If



            Dim pass As New SqlCommand("select password from Employee where Auto_Emp", sqlconn)



            ''======================================================================

            'If Textpass1.Text <> pass Then

            '    MessageBox.Show("كلمة المرور السابقة خـاطئة", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

            '    Exit Sub

            'End If



            '======================================================================

            If Textpass2.Text <> Textpass3.Text Then

                MessageBox.Show("عدم تطابق كلمة المرور الجديده", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

                Exit Sub

            End If



            Dim updataOk As Boolean = winClass.SQLExicute("UPDATE Employee SET password ='" & Textpass2.Text & "' WHERE password = " & Textpass1.Text)

            If updataOk = True Then

                MsgBox("تمت عملية تعديل البيانات بنجاح", MsgBoxStyle.Information, "تأكيد عملية التعديل")

                ClearAll()

                psrrr = Textpass3.Text

            Else

                MsgBox("الرجاء تأكيد من البيانات المدخله", MsgBoxStyle.Critical, "خطأ")

                ClearAll()

            End If



        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub