ช่วยดูโค๊ดให้หน่อยครับ คือ ผมสร้าง ฟอร์ม เเก้ไข password ได้เเล้ว บันทึกได้เเล้ว เเต่อยากให้ มันตรวจสอบ ตรงที่ว่า ตรวจสอบ ชื่อ user เเละ พาสเวิส ว่าตรง ตาม user เดิมหรือไม่

        Dim sqlupdate As String = "select * from users where LOGINNAME='" & User.Text & "' and PASSWORD='" & Pwd.Text & "'"

        If new_pwd.Text <> re_new_pwd.Text Then
            MessageBox.Show("คุณป้อนรหัสผ่านใหม่ไม่ตรงกัน!", "ผลการตรวจสอบ")

            Exit Sub
        End If

        If MessageBox.Show("คุณต้องการเปลี่ยนรหัสผ่านใหม่ ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then

            sqlupdate = "update users set PASSWORD='" & new_pwd.Text & "' where LOGINNAME='" & User.Text & "'"

            Try
                With Conn
                    If .State = ConnectionState.Open Then .Close()
                    .ConnectionString = strConnstring
                    .Open()
                End With

                re = New SqlCommand

                With re
                    .CommandType = CommandType.Text
                    If add_state = True Then

                    Else
                        .CommandText = sqlupdate
                    End If

                    .Connection = Conn
                    .ExecuteNonQuery()
                End With
            Catch ErrorToEdit As Exception
                MessageBox.Show(ErrorToEdit.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub

                add_state = False
                MessageBox.Show("เปลี่ยนรหัสผ่านเรียบร้อย", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Try
        Else
            MessageBox.Show("คุณป้อนชื่อผู้ใช้หรือรีหัสผ่านไม่ถูกต้อง!", "ผลการตรวจสอบ")
        End If