Visualizzare i record di una tabella in una Listview

[ale500]

questo è il codice di un mio programma...

la tabella in questione è formata da 3 colonne....

a te stà il compito di adattarlo...

Public rec As New Recordset

Private Sub Form_Load()
    CreaColonne
    RiempiLista
End Sub

Public Sub CreaColonne()
    lstIscritti.ColumnHeaders.Add , , "Codice", 1500, lvwColumnLeft
    lstIscritti.ColumnHeaders.Add , , "Materia", 1500, lvwColumnLeft
    lstIscritti.ColumnHeaders.Add , , "Soggetti", 5000, lvwColumnLeft
End Sub

Public Sub RiempiLista()
    rec.Open "SELECT * FROM soggetti", db, adOpenDynamic, adLockPessimistic
    lstIscritti.ListItems.Clear
    For i = 0 To rec.RecordCount - 1
        With lstIscritti.ListItems.Add
            .text = rec.Fields(0).Value
            .SubItems(1) = rec.Fields(1).Value
            .SubItems(2) = rec.Fields(2).Value
        End With
        rec.MoveNext
    Next
End Sub 

se ti serve una mano chiedi pure...