Error al cargar datos en columnas

[GhostLT]

Hola amigos, estoy utilizando el siguiente código para llenar un Listview pero me carga a medias la tabla y mi pregunta es como puedo agregarle el campo Descripcion y el campo Activo

Código (vbnet) [Seleccionar] Expandir

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()

[Novlucker]

Código (vbnet) [Seleccionar] Expandir

                subelemento = New ListViewItem(codigo)
                subelemento.SubItems.Add(datareader("Nombre"))   
                subelemento.SubItems.Add(datareader("Descripcion")) 
                subelemento.SubItems.Add(datareader("Activo")) 
                ListView1.Items.Add(subelemento)

Lo que no entiendo es como sabes agregar una columna y el resto no

Saludos

[[D4N93R]]

Recuerda poner el ListView en modo Detalle.

Un saludo

[GhostLT]

Gracias si funciona!!!