risolto!

codice:
Dim ADOCN As New ADODB.Connection
Dim ADORS As New ADODB.Recordset
Dim Lista As String
    
    Private Sub Form_Load()
ADOCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb"
    ADOCN.Open
    ADORS.Open "SELECT * FROM Anagrafica", ADOCN
    Do Until ADORS.EOF
      Lista = ADORS("Nome") & " " & _
                    ADORS("Cognome")
      List1.AddItem Lista
      ADORS.MoveNext
   Loop
  End Sub
:mavieni: