Ciao,
legggo un file .mdb e metto il contenuto in una listbox

dim db As Database
dim recprodotti As Recordset
Set db = OpenDatabase("c:\prova.mdb")
Set recprodotti = db.OpenRecordset("prodotti", dbOpenTable)
if recprodotti.recordcount > 0 then
recprodotti.movefirst
while not recprodotti.eof()
list1.additem recprodotti(1)
recprodotti.movenext
wend
end if
Come faccio ad ordinare i records in modo crescente o decrescente?

Esempio:
il db contiene i valori
Prodotto 5
Prodotto 1
Prodotto 3

in base ad una selezione vorre poter mostrare in ordine crescente
Prodotto 1
Prodotto 3
Prodotto 3

o in modo decrescente
Prodotto 5
Prodotto 3
Prodotto 1

Grazie per l'aiuto in anticipo.