Scusa ...

hai mai provato la flessibilita' di SQL

Dim db as database
dim rs as Recordset

set db = OpenDatabase(mio_db)
set rs = OpenRecordset("SELECT mia_tabella FROM * ORDER BY campo_nome",dbOpenDynaset)

in questo modo il mio recordset e' gia' bello che ordinato ...

voglio un 'altro ordinamento ???

'libero risorse ...
set rs = nothing

set rs=OpenRecordset("SELECT mia_tabella FROM * ORDER BY campo_cognome",dbOpenDynaset)

Logicamente ognuno e' libero di pensarla come meglio crede

Ciao