レコードセットのソート並び替え

sqlでorderbyでソートするとすごく時間がかかる場合がある。
そこで、sqlではなく、VBがわでソートするとすごく早い。

データ以外のテーブルスキーマをコピーする
Dim dt As DataTable = CType(レコードセット, DataTable)

データを取り出す
Dim dv As DataView = dt.DefaultView

データを並び替える。ソートする
dv.Sort = "Column1 ASC"