Adding String To Database, But Name Of String Is Added, Not Data

Hello, I am tring to add a string my database.  Info is added, but it is the name of the string, not the data contained within.  What am I doing wrong?  The text "Company" and "currentUserID" is showing up in my database, but I need the info contained within the string.  All help is appreciated!

 

 

Imports System.Data

Imports System.Data.Common

Imports System.Data.SqlClientPartial Class _DefaultInherits System.Web.UI.Page

 

Protected Sub CreateUserWizard1_CreatedUser(ByVal sender As Object, ByVal e As System.EventArgs) Handles CreateUserWizard1.CreatedUser

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

'First Command DataDim Company As String = ((CType(CreateUserWizard1.CreateUserStep.ContentTemplateContainer.FindControl("Company"), TextBox)).Text)

Dim insertSQL1 As StringDim currentUserID As String = ((CType(CreateUserWizard1.CreateUserStep.ContentTemplateContainer.FindControl("UserName"), TextBox)).Text)

insertSQL1 = "INSERT INTO Company (CompanyName, UserID) VALUES ('Company', 'currentUserID')"Dim cmd1 As New SqlCommand(insertSQL1, con)

'2nd Command Data

Dim selectSQL As String

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

Dim reader As SqlDataReader

'3rd Command Data

Dim insertSQL2 As String

insertSQL2 = "INSERT INTO Company_Membership (CompanyKey, UserID) VALUES ('CompanyKey', 'currentUserID')"Dim cmd3 As New SqlCommand(insertSQL2, con)

'First CommandDim added As Integer = 0

Try

con.Open()

added = cmd1.ExecuteNonQuery()

lblResults.Text = added.ToString() & " records inserted."Catch err As Exception

lblResults.Text = "Error inserting record."

lblResults.Text &= err.Message

Finally

con.Close()

End Try

'2nd Command

Try

con.Open()

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

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

Loop

reader.Close()Catch err As Exception

lbl1Results.Text = "Error selecting record."

lbl1Results.Text &= err.Message

Finally

con.Close()

End Try

'3rd Command

Try

con.Open()

added = cmd3.ExecuteNonQuery()

lbl2Results.Text = added.ToString() & " records inserted."Catch err As Exception

lbl2Results.Text = "Error inserting record."

lbl2Results.Text &= err.Message

Finally

con.Close()End Try

 

 

 End Sub

End Class