Ho cambiato così il codice:



Option Explicit

Private Sub Form_Load()

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


Set dbsbiblio = OpenDatabase("C:\Documents and Settings\Administrator\Desktop\db1.mdb")
Set rsetProva = dbsbiblio.OpenRecordset("Pippo")

With Listprova.ColumnHeaders
.Add , , "Nome", 1000
.Add , , "Cognome", 1000
.Add , , "Telefono", 1000
End With

Listprova.View = lvwReport


With rsetProva

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

.MoveNext
Next i
End With

rsetProva.Close
dbsbiblio.Close

End Sub





Pippo= nometabella
listprova= listview




ma mi da un errore nella prima istruzione dopo il with.

dice elemento non trovato nell'insieme

mi puoi spiegare le variabili per favore?

grazie mille
Sara