crear celdas con un porcentaje

[guillebomtrasmiti]

bien lo he arreglado así para el que lo necesite;

Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet
Dim maximo As Integer = CInt(TextLinea1.Text)
Dim maximo2 As Integer = CInt(TextLinea2.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