【解決方法】暗証番号を使用してパスワードをリセットするには?

特定のユーザーを認証するためのシークレット コードを挿入して、パスワードをリセットしたいと考えています。 しかし、適用していたコーディングは、ユーザーの新しいパスワードを変更または更新しませんでした。 ユーザーが自分の秘密コードを正しく挿入しているか間違っているかを識別しますが、新しいパスワードを更新していません。 ユーザーパスワードをリセットする正しい方法を見つけるのを手伝ってください。

私が試したこと：

Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click 'FUNCTION IS EXECUTED WHEN BUTTON SUBMIT IS CLICKED

      cs.Open()
      Dim sql As String = "SELECT * FROM userlogistic WHERE user_id = '" & Request.Form("user") & "' AND user_securitycode = '" & Request.Form("user_securitycode") & "'"
      cmd.CommandText = sql
      cmd.Connection = cs
      reader = cmd.ExecuteReader

      If reader.HasRows Then 'CHECK IF USER ID AND PASSWORD EXIST IN DATABASE
          While reader.Read
              Session("user_no") = reader.Item("user_no")
              Session("user_id") = reader.Item("user_id")
              Session("user_name") = reader.Item("user_name")
              Session("user_password") = reader.Item("user_password")
              Session("user_rank") = reader.Item("user_rank")
              Session("user_section") = reader.Item("user_section")
              Session("user_securitycode") = reader.Item("user_securitycode")

          End While

      End If

      cs.Close()

      If Request.Form("user_securitycode") = Session("user_securitycode") Then
          If Request.Form("pass1") = Request.Form("pass2") Then 'CHECK IF FIRST PASSWORD IS = SECOND PASSWORD
              cs.Open()
              cmd.CommandText = "UPDATE userlogistic SET user_password = '" & Request.Form("pass1") & _
                  "' WHERE user_no = '" & Request.Form("userid") & "'" 'UPDATE TBL_USER WHERE USER_NO IS = TO SELECTED USERID
              cmd.Connection = cs
              cmd.ExecuteNonQuery()
              cs.Close()

              Dim message As String = "Successfully Updated User Password" 'NOTIFY USER THAT RECORD HAS BEEN SUCESFULLY UPDATED
              Dim sb As New System.Text.StringBuilder()
              sb.Append("<script type = 'text/javascript'>")
              sb.Append("window.onload=function(){")
              sb.Append("alert('")
              sb.Append(message)
              sb.Append("')};")
              sb.Append("</script>")
              ClientScript.RegisterClientScriptBlock(Me.GetType(), "alert", sb.ToString())

          Else

              Dim message2 As String = "Password Is Not The Same" 'NOTIFY USER THAT PASSWORD ONE AND TWO ARE NOT THE SAME
              Dim sb2 As New System.Text.StringBuilder()
              sb2.Append("<script type = 'text/javascript'>")
              sb2.Append("window.onload=function(){")
              sb2.Append("alert('")
              sb2.Append(message2)
              sb2.Append("')};")
              sb2.Append("</script>")
              ClientScript.RegisterClientScriptBlock(Me.GetType(), "alert", sb2.ToString())

          End If



      Else

          Dim message As String = "Security Password is incorrect" 'NOTIFY USER THAT RECORD HAS BEEN SUCESFULLY UPDATED
          Dim sb As New System.Text.StringBuilder()
          sb.Append("<script type = 'text/javascript'>")
          sb.Append("window.onload=function(){")
          sb.Append("alert('")
          sb.Append(message)
          sb.Append("')};")
          sb.Append("</script>")
          ClientScript.RegisterClientScriptBlock(Me.GetType(), "alert", sb.ToString())

      End If

      reader.Close()
      cs.Close()
  End Sub