SQL Data Not Showing In Label

Here is my code.  Basically what I am doing is selecting from the database based on the current user.   The ReaderResults.Text label is not showing the info pulled from the database, and the ReaderError.Text label is not showing an error.  I also tried putting the ReaderResults.Text label inside the loop and that didnt work. Any suggestions?

'Database ConnectionDim con As New SqlConnection("Data Source = .SQLExpress;integrated security=true;attachdbfilename=|DataDirectory|ASPNETDB.mdf;user instance=true")Dim currentUserID

currentUserID = Context.User.Identity.Name.ToString()

Label1.Text = currentUserID

Dim selectSQL As String

selectSQL = "SELECT companyKey FROM Company WHERE UserID = ('" + currentUserID + "')"Dim cmd2 As New SqlCommand(selectSQL, con)

Dim reader As SqlDataReaderDim CompanyKey

Try

con.Open()

reader = cmd2.ExecuteReader()Do While reader.Read()

CompanyKey = reader("CompanyKey").ToString()

Loop

reader.Close()Catch err As Exception

ReaderError.Text = "Error selecting record."

ReaderError.Text &= err.Message

ReaderResults.Text = CompanyKey

Finally

con.Close()

End Try