crear celdas con un porcentaje

[guillebomtrasmiti]

alguien sabría decirme por que al llegar a la (3) me dice que faltan parametros requeridos en el executenonquery...la dos y la 1 lo hacer perfecto


Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet
Dim maximo As Integer = CInt(TextLinea1.Text)
Dim maximo2 As Integer = CInt(TextLinea2.Text)
Dim maximo3 As Integer = CInt(TextLinea3.Text)
Dim maximo4 As Integer = CInt(TextLinea4.Text)
Dim maximo5 As Integer = CInt(TextLinea5.Text)
Dim maximo6 As Integer = CInt(TextLinea6.Text)

For x As Integer = 1 To maximo
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
comados.CommandText = "INSERT INTO HistoricoTickets (Producto,Euros,Fecha,Iva) SELECT Producto1,Pvp1,Fecha1,Iva1 FROM HistoricoGTickets"

conexion.Open()
frmProgressbar.Show()
Dim Lecto1 = comados.ExecuteNonQuery
frmProgressbar.Close()
conexion.Close()
Next
For x As Integer = 1 To maximo2
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados2 = conexion.CreateCommand
comados2.CommandType = CommandType.Text
comados2.CommandText = "INSERT INTO HistoricoTickets (Producto,Euros,Fecha,Iva) SELECT Producto2,Pvp2,Fecha2,Iva2 FROM HistoricoGTickets"

conexion.Open()
frmProgressbar.Show()
Dim Lecto2 = comados2.ExecuteNonQuery
frmProgressbar.Close()
conexion.Close()
Next

For x As Integer = 1 To maximo3
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados3 = conexion.CreateCommand
comados3.CommandType = CommandType.Text
comados3.CommandText = "INSERT INTO HistoricoTickets (Producto,Euros,Fecha,Iva) SELECT Producto3,Pvp3,Fecha3,Iva3 FROM HistoricoGTickets"

conexion.Open()
frmProgressbar.Show()
Dim Lecto3 = comados3.ExecuteNonQuery
frmProgressbar.Close()
conexion.Close()
Next