データベースのテーブルより特定の条件でレコードを並び替えする場合はSortメソッドを使用します。昇順に並び替える場合は引数にAcsを指定し、降順に並び替える場合はDescを指定します。
レコードセット変数.Sort = "フィールド名 Asc"
レコードセット変数.Sort = "フィールド名 Desc"
以下の例では名簿テーブルよりOpenメソッドによりレコードセットを作成して、Sortメソッドで姓を昇順にレコードを並び替えして全て表示し、Closeメソッドで閉じています。
Sub Sample()
Dim rs As New ADODB.Recordset
rs.Open "名簿", CurrentProject.Connection
rs.Sort = "姓 Asc"
Do Until rs.EOF
Debug.Print rs!姓 & rs!名
rs.MoveNext
Loop
rs.Close
End Sub
ADOとは | レコードセットの作成(Open) | レコードセットの読み取り(Move) | レコードの検索(Find) | レコードの更新(Update) | レコードの追加(AddNew) | レコードの削除(Delete) | レコードの抽出(Filter) | レコードの並び替え | SQL文の実行