SQL Insert Statement Error That I Cannot Figure Out

I am receiving the following error when trying to insert values from textboxes on a registration form:





Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.





Compiler Error Message: BC30205: End of statement expected.





Source Error:











Line 19: Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)


Line 20:


Line 21: Dim queryString As String = "INSERT INTO [UserID_db] ([Code], [UserID], [Password], [Email1], [Name_First], [Name_Last], [Admin_level]) VALUES ('" & txtUserID.Text"', '" & txtUserID.Text"', '" & txtPassword.Text"', '" & txtEmail1.Text"', '" & txtFirstName"', '" & txtLastName.Text"', '" & txtAdminLevel.Text"')"


Line 22: Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand


Line 23: dbCommand.CommandText = queryString








My code is below. Can anyone help me figure out what is wrong with my code?





<%@ Page Language="VB" Debug="true" %>


<%@ Register TagPrefix="wmx" Namespace="Microsoft.Matrix.Framework.Web.UI" Assembly="Microsoft.Matrix.Framework, Version=0.6.0.0, Culture=neutral, PublicKeyToken=6f763c9966660626" %>


<%@ import Namespace="System.Data" %>


<%@ import Namespace="System.Data.OleDb" %>


<script runat="server">





Sub btnSubmit_Click(sender As Object, e As EventArgs)





Dim UCde as string = txtUserID.Text


Dim UserID as string = txtUserID.Text


Dim Password as string = txtPassword.Text


Dim Email1 as string = txtEmail.Text


Dim FirstName as string = txtFirstName.Text


Dim LastName as string = txtLastName.Text


Dim AdminLevel as string = dropAccountType.SelectedItem.Value








Dim connectionString As String = "server='(local)'; trusted_connection=true; database='master'"


Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)





Dim queryString As String = "INSERT INTO [UserID_db] ([Code], [UserID], [Password], [Email1], [Name_First], [Name_Last], [Admin_level]) VALUES ('" & txtUserID.Text"', '" & txtUserID.Text"', '" & txtPassword.Text"', '" & txtEmail1.Text"', '" & txtFirstName"', '" & txtLastName.Text"', '" & txtAdminLevel.Text"')"


Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand


dbCommand.CommandText = queryString


dbCommand.Connection = dbConnection





Dim rowsAffected As Integer = 0


dbConnection.Open()


dbCommand.ExecuteNonQuery()


dbConnection.Close()


End Sub








Thanks for your help.





Chris