sort a recordset

[tidis]

Hi,

I've got a recordset from a table that is ascending on an Item.
How can I sort this recordset on numberofitems descending?

my code:
dim db as Database
dim rd as recordset
set db = CurrentDB
set rd = db.OpenRecordSet("Table1")
with rd
'Here must I sort my recordset orderby rd.fields("NumberOfItems") descending
do while not rd.eof
....
end with
...

thanks

 

[allan57]

set rd = db.OpenRecordSet("SELECT Table1.* FROM Table1 ORDER BY Table1.NumberOfItems DESC;")