[VB6]-Listbox e database!

[Pinco Pallino 2]

CIAO!
Io mi connetto a un database in questo modo:

Dim ADOCN As New ADODB.Connection
Dim ADORS As New ADODB.Recordset
        Private Sub Form_Load()
ADOCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb"
    ADOCN.Open
    ADORS.Open "SELECT * FROM Anagrafica", ADOCN
 End Sub

Nel form ho inserito una listbox e vorrei ke si popolasse di tutti i dati di UN CAMPO del database (es tutti i nomi)

Come devo fare?
Ho provato con:

List1.DataSource = ADORS
    List1.DataField = "nome"

Ma è evindete ke sbaglio visto ke mi da errore!!
Ho provato anke con:

Do While Not ADORS.EOF
     List1.AddItem ADORS("nome")
Loop

Ma si blocca tutto durante il test... :master:
Per disperazione ho messo:

     List1.AddItem rs("campo")

Ma mi mette solo il 1° nome del database!!
CHE POSSO FARE?

A una curiosità...com'è che col codice che ho messo a volte si connette e invece a volta mi da il percorso di vb (C:\Programmi\Microsoft Visual Studio\VB98) con conseguente errore ke nn trova il db (ke è nella cartella del programma) e per far il debug mi tocca metter tutto il percorso assoluto sino alla cartella in cui sta il DB?!?

Grazie infinite!
CIAO!

[Pinco Pallino 2]

risolto!

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: