'questo legge dal db e assegna a uda list, come serve a te

Private Sub Form_Load()

Dim dbsbiblio As Database
Dim rsetProva As Recordset
Dim i As Long


Set dbsbiblio = OpenDatabase("biblio.mdb")
Set rsetProva = dbsbiblio.OpenRecordset("Authors")

With ListProva.ColumnHeaders
.Add , , "Autore", 1000
.Add , , "ID", 1000
End With

ListProva.View = lvwReport


With rsetProva

For i = 0 To .RecordCount - 1
With ListProva
.ListItems.Add i + 1, , rsetProva!Author
.ListItems(i + 1).SubItems(1) = rsetProva!Au_ID
End With

.MoveNext
Next i
End With

rsetProva.Close
dbsbiblio.Close

End Sub





fammi sapere se hai altri casini

ciao