dim SQL as String
Dim rs As Recordset
SQL = "SELECT フィールド名 FROM テーブル名 ORDER BY 並べ替えフィールド名 並べ替え順 "
Set rs = CurrentDb.OpenRecordset(SQL)
並べ替えは、ORDER BY を使います。
並べ替え順は、昇順がASC、降順がDESCになります。
省略すると昇順になります。
例： SQL = "SELECT 製品No FROM 製品マスター ORDER BY 単価 "
この場合、単価を昇順で製品Noを取り出します。