Cargar datos de una tabla en un listview

[fesero]

usando ADO podria ser asi.-. asi lo uso yo y me funciona
tambien tenes que poner en las propiedades del listview en "VIEW" como: 3-lvwReport ;asi te aparece como un listado.

Dim ObjItem As ListItem
Set rsProd = New ADODB.Recordset
sBus = "SELECT * FROM producto "

ListView1.ListItems.Clear
If rsProd .RecordCount > 0 Then
While Not rsProd .EOF
Set ObjItem = ListView1.ListItems.Add(, , rsProd (1))
ObjItem.SubItems(1) = rsProd .Fields(2)
ObjItem.SubItems(2) = rsProd .Fields(3)
ObjItem.SubItems(3) = rsProd .Fields(4)
ObjItem.SubItems(4) = rsProd .Fields(5)
ObjItem.SubItems(5) = rsProd .Fields(6)
ObjItem.SubItems(6) = rsProd .Fields(7)
ObjItem.SubItems(7) = rsProd .Fields(8)
ObjItem.SubItems(8) = rsProd .Fields(9)
ObjItem.SubItems(9) = rsProd .Fields(10)
ObjItem.SubItems(10) = rsProd .Fields(11)
ObjItem.SubItems(11) = rsProd .Fields(12)

' siguiente registro
rsProd .MoveNext
Wend
rsProd .Close
End If
------------

eso lo podes colocar hasta en un sub solito para que se ejecute cuando se carga el form.
para que te funione el recorcount deberias hacerlo asi, antes de abrir el recordset. Yo a esto lo tengo para que se realize antes de cargar el listview con el recordset.

With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & sFichero & "';"
.Open
.CursorLocation = adUseClient
End With