Ayuda Mostrar datos en Listview

[seduch]

Hola, me encontré de casualidad con esta pregunta hoy 25-09-2012 y quisiera agregar algo más, tal vez le sirva a alguien:
Para cargar datos a un ListView, colocar en el evento Load del Form o bien en un Botón de comando lo siguiente. En mi caso uso VBA Access 2003

Código para cargar datos desde una tabla de Access 2003, en un ListView (Microsoft Windows Common Controls 6.0 (SP6))

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rbad As String 'Ruta de BD

Private Sub Comando16_Click() 'botón para cargar datos
On Local Error Resume Next

Texto6.SetFocus 'cuadro de búsqueda de datos
Me!ListView1.ListItems.Clear
Me!ListView1.ColumnHeaders.Clear

Me!ListView1.FullRowSelect = True
Me!ListView1.GridLines = True
Me!ListView1.Sorted = True
Me!ListView1.Checkboxes = False
Me!ListView1.View = lvwReport

'Establece Conexión y Apertura Recordset
rbad = ruta base de datos
sqldatos = "SELECT a, b, c, FROM........;"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rbad & ";Persist Security Info=False"
rs.Open sqldatos, cnn, adOpenDynamic, adLockOptimistic

'Creación de las columnas
With ListView1.ColumnHeaders
.Add , , "Nº FOLIO"
.Add , , "EMISIÓN", , lvwColumnCenter
.Add , , "TIPO DOCUMENTO"
.Add , , "CLIENTE"
.Add , , "TOTAL", , lvwColumnRight
.Add , , "VENCIMIENTO", , lvwColumnCenter
.Add , , "ESTADO DE PAGO"
End With

'Agregar Ítemes y subítemes al listview
rs.MoveFirst
While Not rs.EOF
With ListView1.ListItems.Add
.text = Format(rs!NDCV, "#####0000000000")
.SubItems(1) = rs!Fecha_Venta
.SubItems(2) = rs!Tipo_Documento
.SubItems(3) = rs!Nombre_Cliente
.SubItems(4) = Nz(Format(rs!Total_Venta, "$ 0"), "")
.SubItems(5) = Nz(rs!Fecha_Vencimiento, "")
.SubItems(6) = Nz(rs!Estado_Factura, "")
End With
rs.MoveNext
Wend

'Cierra Conexión y recordset. Descarga de memoria
rs.Close
Set rs = Nothing
If cnn.State = 1 Then cnn.Close
Set cnn = Nothing

End Sub

Saludos desde Concepción Chile
http://www.bio-soft.cl/