Ciao Eng,
grazie mille per la risposta.

Usando codice SQL (giusto?) infatti il tutto si semplifica.

Ho apportato le modifiche così

Dim db As Database
Dim recprodotti As Recordset

Set db = OpenDatabase(percorsodb)
Set recprodotti = db.OpenRecordset("SELECT * FROM prodotti ORDER BY prodotti.descrizione DESC;")

If recprodotti.RecordCount > 0 Then
recprodotti.MoveFirst
While Not recprodotti.EOF()
List1.AddItem recprodotti(1)
recprodotti.MoveNext
Wend
End If
Con SQL mi ci arrabatto visto che lo uso con php/MySql.
Ho visti che funziona.
Ti chiedo conferma se è giusta la sintassi, comunque.

Grazie per la dritta, a buon rendere davvero