[VB] caricare recordset in una listbox (era: ListBox)

[axsw]

Prova così

Option Explicit
 Dim mydata As Database
 Dim myrecord As Recordset

Set mydata = OpenDatabase(App.Path + "\" + "tuodatabase.mdb")
    Set myrecord = mydata.OpenRecordset("tuatabella")
    If myrecord.EOF Then
        MsgBox "Nessun Nome in questa tabella!", vbInformation, "Tuo programma"
     Else
       myrecord.MoveFirst
    Do Until myrecord.EOF
        Tuolistbox.AddItem myrecord.Fields("tuocampo")
        myrecord.MoveNext
    Loop
    End If
    mydata.Close

Se nel tuo campo ci saranno dei nomi nel listbox appariranno tutti i nomi