Datos de Access en un ListView

[2Fast To You]

Listo ya lo hice y es así.

Código:

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()
Dim sql As String
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=TUBASEDATOS.mdb;"
con.Open , "", ""
rellenarListView lvw 'El nombre del ListView
End Sub

Private Sub rellenarListView(ByRef lst As ListView)
Dim contador As Integer
Dim columna As ColumnHeader
Dim li As ListItem
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
sql = "SELECT * ," & _ ' * Es para seleccionar todas las Tablas
" * From TUTABLA"
rs.Open sql, con, adOpenStatic, adLockReadOnly, adCmdText
'Ponemos el estilo del ListView a report
lst.View = lvwReport
lst.GridLines = True 'Ponemos las lineas del listview
lst.LabelEdit = lvwManual 'Para no poder editar la etiqueta.
'Ponemos las columnas con los campos de la consulta:
For contador = 0 To rs.Fields.Count - 1
    Set columna = lst.ColumnHeaders.Add(, , rs.Fields(contador).Name)
Next contador
'Ponemos los datos en el listview
If rs.Fields.Count = 0 Then Exit Sub
Do Until rs.EOF
    Set li = lst.ListItems.Add(, , rs.Fields(0).Value)
    For contador = 1 To rs.Fields.Count - 1
        li.ListSubItems.Add , , rs.Fields(contador).Value
    Next contador
    rs.MoveNext
Loop
rs.Close
End Sub

Espero que les Ayude.

Saludos