Invisible String? I Turn To You, The Reliable ASP.NET Forum Experts, For A Last Ditch Try. Please Help Me Out.

I have been tring to get this one line figured out for a few days now. 

'Job2 Info

Dim selectSQL2 As StringselectSQL2 = "SELECT * FROM '" & CompanyKey & "'"                    '<<-------HERE

Dim cmd2 As New SqlCommand(selectSQL2, con)

'Job2 Select

Try

con.Open()

reader = cmd2.ExecuteReader()

 

(I have the full code below.)  So here is the problem, this code is not populating the datagrid.  There is data in the table I am selecting from.  When I log in, my CompanyKey value displays in the label as "21".  When I take out the "CompanyKey" variable, and just type in 21, the grid is populated. It is confusing the heck out of me.  I have tried it this way:

selectSQL2 = "SELECT * FROM [" & CompanyKey & "]"

-and this way:

selectSQL2 = "SELECT * FROM & CompanyKey

and all the other ways I could think of.  I researched it and can just not get it to work any way I do it.  Any suggestions?  Full code below:

____________________________________

 

 

Imports System.DataImports System.Data.CommonImports System.Data.SqlClient

 

 Partial Class _Default

Inherits System.Web.UI.PageProtected 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(Info)Dim currentUserID

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

Label1.Text = currentUserID

Dim selectSQL1 As StringselectSQL1 = "SELECT companyKey FROM Company WHERE UserID = ('" + currentUserID + "')"

Dim cmd1 As New SqlCommand(selectSQL1, con) Dim reader As SqlDataReader

Dim CompanyKey

'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

con.Close()

End Try

'Job2 Info

Dim selectSQL2 As StringselectSQL2 = "SELECT * FROM [" & CompanyKey & "]"

Dim cmd2 As New SqlCommand(selectSQL2, con)

'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 TryEnd Sub

 

End Class