¿Cómo mostrar los campos de la base de datos en la vista de lista en vb2005?

lstUser.Clear()

mySql = "select * from sqlusers"

rs = myRs(mySql, sqlIP, 1 )

lstUser.View = Ver.

Atenuar i como entero

Si rs.Fields.Count gt 0 Entonces

' Agregar elemento de encabezado de columna del cuadro de lista

For i = 1 To rs.Fields.Count

lstUser.Columns.Add(rs.Fields.Item(i - 1).Name)

p>

Siguiente

'Agregar contenido de datos del cuadro de lista

Si rs.RecordCount gt 0 Entonces

rs.MoveFirst( )

Para i = 1 Para rs.RecordCount

lstUser.Items.Add(rs("Username").Value)

lstUser .Column.Add( rs.Fields.Item(i - 1).

lstUser.Items.Item(i - 1).SubItems.Add(rs("Contraseña").Value)

lstUser .Items.Item(i - 1).SubItems.Add(rs("Tipo de usuario").Value)

rs.MoveNext()

Siguiente

Finalizar si

Finalizar función