insertar datos aleatorios

[tienda]

hola amigos, hace tiempo que no ando por aquí, espero me puedan ayudar, tengo que insertar datos en una tabla, pero debe ser de forma aleatoria, tengo unos integer que tienen de cada vez unas cifras diferentes, estos se llaman;
maximo
maximo2
maximo3
maximo4
maximo5
maximo6

cada uno de ellos en cada momento de ejecutar la acción tienen unas cifras diferentes, así llegado el momento hago lo siguiente:

Código:

            For x As Integer = 1 To maximo
                'inserto en historicotickets el producto, el precio la fecha y el iva que están en la tabla historicogtickets correspondientes al producto 1
                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
                MessageBox.Show("1")
                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,Fecha1,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,Fecha1,Iva3 FROM HistoricoGTickets"

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

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

                    conexion.Open()
                    frmProgressbar.Show()
                    Dim Lecto4 = comados4.ExecuteNonQuery
                    frmProgressbar.Close()
                    conexion.Close()
                Next

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

                    conexion.Open()
                    frmProgressbar.Show()
                    Dim Lecto5 = comados5.ExecuteNonQuery
                    frmProgressbar.Close()
                    conexion.Close()
                Next

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

                    conexion.Open()
                    frmProgressbar.Show()
                    Dim Lecto6 = comados6.ExecuteNonQuery
                    frmProgressbar.Close()
                    conexion.Close()
                Next

debido a esto me carga repetidos los datos, funciona bien pero necesito que sea aleatorio, que los for no comiencen y terminen seguidos si no que salten a otro for y así hasta que se completen sus máximos pero no seguidos me explico?¿?