Dim sql As String
        sql = "INSERT INTO Usuarios (Name,LastName,NameSesion,Password,Fecha,active) values ('" & TextBox1.Text & "', '" & TextBox4.Text & "','" & TextBox3.Text & "','" & TextBox2.Text & "','" & Date.Today & "','1')"
        Dim cnn As OleDbConnection
        cnn = New OleDbConnection(Cadena)
        '  ' crear comando
        Dim Comando As New OleDbCommand(sql, cnn)
        '  ' crear DataReader
        Dim DataReader As OleDbDataReader
        cnn.Open()
        DataReader = Comando.ExecuteReader() ' obtener DataReader

Dim cmdselect As New OleDb.OleDbCommand("Select *  From Rol where Activo=yes", conn)
            Dim datareader As OleDb.OleDbDataReader = cmdselect.ExecuteReader()
 
            While datareader.Read()
                '=======Agregar elementos al ListView ========
                Dim subelemento As ListViewItem
                'Dim codigo As String = datareader("idRol")
                Dim codigo As String = datareader("idRol")
 
                subelemento = New ListViewItem(codigo)
                subelemento.SubItems.Add(datareader("Nombre"))   
                'como seria esta linea para agregar Descripcion
                'como seria esta linea para agregar Activo
                ListView1.Items.Add(subelemento)
 
            End While
 
            datareader.Close()
            conn.Close()

Dim arreglo(100) As Integer
Dim l As Integer
Dim n As Integer
Dim valor As Integer
        For l = 0 To List1.ListCount - 1
            valor = List1.Text
                For n = 1 To List1.ListCount - 1
                    arreglo(n) = valor
                Next
        Next
'Por ultimo coloque unos textbox para confirmar que se guardaron los valores
Text1.Text = arreglo(1)                 'me sale 0 y en realidad es un 2
Text2.Text = arreglo(2)                 'me sale 0 y en realidad es un 4
Text3.Text = arreglo(3)                  'me sale 0 y en realidad es un 1
 

SQL1 = "SELECT * FROM tablainformaciondelaunidad WHERE TURNO='" & Label7 & "' AND TECNICO='" & txtid & "'AND FECHA= '" & Label3 & "' AND HORA BETWEEN #" & Format("19:00", "Short Time") & "# AND #" & Format("23:59", "Short Time") & "#"

AND FECHA= #" & Label3+1 & "#AND HORA BETWEEN #" & Format("00:00", "Short TIME") & "# AND #" & Format("05:59", "Short TIME") & "# "