Unable To Add Data From MySQL Into Text Field

hey guys... i have some problem here... i am trying to display data out on the text field and these are the codes that i have added... i have a few pages with the same codes but onli this particular page can't work...

when the webpage first load, it will load all the username onto ListBox1... when the user choose a data from ListBox1 and click button3, it will show all the data of that particular user that the user had selected and display them on the text fields provide... but the data could not display the data... is there something wrong with my codings??

 

These are my coding: 

Imports System.Data

Imports System.Data.SqlClient

 

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Label6.Text = Session("Un")

 

Dim connSel As New SqlConnection("data source=localhost; initial catalog=Sourcing; integrated security=true")

Dim adapSel As SqlDataAdapter

Dim mySQL As String

mySQL = "select UserName from Users "

adapSel = New SqlDataAdapter(mySQL, connSel)

connSel.Open()

Dim dsSel As New DataSet

adapSel.Fill(dsSel)

ListBox1.DataSource = dsSel

ListBox1.DataTextField = "UserName"

ListBox1.DataValueField = "UserName"

ListBox1.DataBind()

connSel.Close()

End Sub 

 

Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim conn As New SqlConnection("data source=localhost; initial catalog=Sourcing;" & "integrated security=true")

Dim cmd As New SqlCommand("select * from Users where UserName = '" & ListBox1.SelectedValue & "'", conn)

conn.Open()

Dim dr As SqlDataReader

dr = cmd.ExecuteReader()

Do While dr.Read()

UserTxt.Text = dr("UserName")

PwdTxt.Text = dr("Password")

BranchTxt.Text = dr("Branch")

CountryTxt.Text = dr("Country")

PriTxt.Text = dr("Priority")

 

Loop

dr.Close()

conn.Close()

End Sub

End Class