Problemas con TextBox

[AnaGaby]

Es algo largo pero aqui esta:
conexion = New SqlConnection()
conexion.ConnectionString = ConfigurationManager.ConnectionStrings("DNS_Conexi on").ConnectionString
If Not Page.IsPostBack Then
comando = New SqlCommand()
comando.CommandText = "Select name from sysobjects where type='U'"
comando.CommandType = CommandType.Text
comando.Connection = conexion
comando.Connection.Open()
lector = comando.ExecuteReader()
lbTablas.DataSource = lector
lbTablas.DataTextField = "name"
lbTablas.DataBind()
lector.Close()
lector = comando.ExecuteReader()
lbTablas.DataSource = lector
lbTablas.DataTextField = "name"
lbTablas.DataBind()
lector.Close()
comando.Connection.Close()
tbNombre.EnableViewState = True
End If
Page.EnableViewState = True

Aqui le cargo a una lista las tablas que tengo entonces cuando se escoge una de ellas se llena el grid:

Sub llenaGV()
comando = New SqlCommand()
comando.CommandText = "SELECT * FROM empleados" ' & lbTablas.SelectedValue
comando.CommandType = CommandType.Text
comando.Connection = conexion
comando.Connection.Open()
lector = comando.ExecuteReader()
gvTabla.DataSource = lector
gvTabla.DataBind()
lector.Close()
comando.Dispose()
comando.Connection.Close()
End Sub

Cuando se da click en el boton nuevo genero los campos a mostrar:

Protected Sub btnNuevo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNuevo.Click
lblaccion.Text = 1
cuentaCampos()
muestraCampos()
End Sub

Sub cuentaCampos()
comando = New SqlCommand()
comando.CommandText = "SELECT column_name FROM information_schema.columns WHERE table_name = '" & lbTablas.SelectedValue & "'"
comando.CommandType = CommandType.Text
comando.Connection = conexion
comando.Connection.Open()
lector = comando.ExecuteReader()
listaCampos.DataSource = lector
listaCampos.DataTextField = "column_name"
listaCampos.DataBind()
lector.Close()
comando.Connection.Close()
contador = listaCampos.Items.Count
Me.Page.Form.Controls.Add(listaCampos)
Response.Write(contador)
End Sub

Sub muestraCampos()
Dim i As Integer
For i = 1 To contador - 1
etiqueta(i) = New TextBox()
etiqueta(i).Text = listaCampos.Items.Item(i).ToString
etiqueta(i).Width = 130
etiqueta(i).Height = 22
etiqueta(i).MaxLength = 1
'etiqueta(i).BorderWidth = 1
Me.Panel3.Controls.Add(etiqueta(i))
Next
camposEmpleados()
End Sub

Sub camposEmpleados()
Me.Panel2.Controls.Add(tbNombre)
End Sub

Ya despues que se muestran doy clikc en guardar:

Protected Sub btnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
tbNombre.EnableViewState = True
comando = New SqlCommand()
comando.CommandText = "INSERT empleados (nombre,documento,fechaingreso) VALUES ('" & tbNombre.Text & "', '" & tbDocumento.Text & "', '" & tbFechaingreso.Text & "')"
lblaccion.Text = comando.CommandText
End sub

Por lo pronto no estoy guardando los datos porque solo me guarda valores nulos