Retrieve password from database using username and code in ASP.Net

Hi vereato,

Use below code.

Private Sub Get_Data()
    Dim ConnStr As String = ConfigurationManager.ConnectionStrings("MySQLConnect").ConnectionString
    Using Conn As New MySqlConnection(ConnStr)
        Using Cmd As MySqlCommand = New MySqlCommand("SELECT Password FROM tbl_users WHERE UserName = @Name,Secret = @Secret")
            Cmd.CommandType = CommandType.Text
            Cmd.Connection = Conn
            Cmd.Parameters.AddWithValue("@UserName", TxtBox_User_Name.Text.Trim())
            Cmd.Parameters.AddWithValue("@Secret", TxtBox_Secret_Code.Text.Trim())
            Conn.Open()
            Dim pass As String = Convert.ToString(Cmd.ExecuteScalar)
            If Not String.IsNullOrEmpty(pass) Then
                Reset_Lbl_Password.Text = pass
            Else
                Reset_Lbl_Password.Text = "Nothing was Found"
            End If
            Conn.Close()
            Conn.Dispose()
        End Using
    End Using
End Sub

Hi there i got it is working now i fix the problem 

Thanks for your help anyways 

The code is working now you can try by your self and post on the page   

    Private Sub Get_Data()
        Dim ConnStr As String = ConfigurationManager.ConnectionStrings("MySQLConnect").ConnectionString
        Using Conn As New MySqlConnection(ConnStr)
            Conn.Open()
            Dim Str As String
            Dim Cmd As MySqlCommand
            Dim Obj As Object
            Dim DataSet1 As New DataSet
            Dim dr As MySqlDataReader
            Dim da As New MySqlDataAdapter
            Str = "SELECT  Password FROM tbl_users WHERE Username=@Username AND Secret_Code=@Secret_Code"
            Cmd = New MySqlCommand(Str, Conn)
            Cmd.CommandType = CommandType.Text
            Cmd.Parameters.AddWithValue("@Username", TxtBox_Username.Text)
            'Cmd.Parameters.AddWithValue("@Password", Reset_Lbl_Password.Text)
            Cmd.Parameters.AddWithValue("@Secret_Code", TxtBox_Secret_Code.Text)
            Obj = Cmd.ExecuteScalar()
            dr = Cmd.ExecuteReader           
            If dr.Read Then
                Reset_Lbl_Password.Text = dr("Password").ToString
                'Reset_Lbl_Password.Text.Trim.ToString()
                Reset_Lbl_Password.Visible = True
                Reset_Lbl_Password.ForeColor = Drawing.Color.White
            Else
                Reset_Lbl_Password.Visible = True
                ' Error Message After Username and Password is Login 
                Reset_Lbl_Password.Text = "Nothing was Found"
                Reset_Lbl_Password.ForeColor = Drawing.Color.White
            End If
            Conn.Close()
            Conn.Dispose()
        End Using
    End Sub