Knowledge Needed &<-----here . Please Help

I am loosing my mind on this one.  I select info from a database. I then take that selected info, and select info from another table based on that. Straight forward.  The CompanyKey attached to my username is 7 which displays in the ReaderResults.Text.  I the following line:

selectSQL2 = "SELECT * FROM Company WHERE companyKey = ('" + CompanyKey + "')" 

 

I can change it to:

 

 selectSQL2 = "SELECT * FROM Company_Membership WHERE companyKey = 7 "

 

and it works. I have no idea what is going on. Dissapearing string?  Here is the code:

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

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

'Job1 InfoDim currentUserID

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

Label1.Text = currentUserID

Dim selectSQL1 As String

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

Dim reader As SqlDataReaderDim CompanyKey

'Job2 Info

Dim selectSQL2 As String

selectSQL2 = "SELECT * FROM Company WHERE companyKey = ('" + CompanyKey + "')"Dim cmd2 As New SqlCommand(selectSQL2, con)

'Job1 Select

Try

con.Open()

reader = cmd1.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

Finally

ReaderResults.Text = CompanyKey

con.Close()

End Try

'Job2 Select

Try

con.Open()

reader = cmd2.ExecuteReader()

GridView1.DataSource = reader

GridView1.DataBind()

reader.Close()Catch err As Exception

ReaderError.Text = "Error selecting record."

ReaderError.Text &= err.Message

Finally

ReaderResults.Text = CompanyKey

con.Close()

End Try