データベースのテーブルより特定の条件でレコードを並び替えする場合は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