RS.CursorLocation = adUseClient
With RS
.Source = "tbl補助科目"
.ActiveConnection = CN
.Open
End With
RS.Sort = "科目コード ASC, 補助科目コード DESC"
Do Until RS.EOF
Debug.Print RS("科目コード"), RS("補助科目コード"), RS("補助科目名")
RS.MoveNext
Loop
----------------------------------------------------------
昇順:ASC 降順:DESC
Sortするには、CursorLocationに、adUseClient の設定が必要
CursorLocation プロパティ
adUseServer (既定)サーバー側のカーソル使用
adUseClient クライアント側のカーソル使用
Openされたオブジェクトには無効なので、RSのオープン前に設定