Grazie lo stesso raga ho risolto così, ho inserito una routine
codice:
Public Sub listbox()
 lstboxclient.Clear
Set mydata = OpenDatabase(App.Path + "\" + "DBclienti.mdb")
    Set myrecord = mydata.OpenRecordset("clienti")

    Do Until myrecord.EOF
        lstboxclient.AddItem myrecord.Fields("nome")
        myrecord.MoveNext
    Loop
   End If
   mydata.Close
End Sub