たびたび、すいません。
２次元配列で１次元目の添え字でソートを行いたい場合、
どのようにしたらよいでしょうか？
ADOで、論理テーブルに一度配列データをセットして、
ソートをかけてから、配列に入れなおす方法があると
きいたことがあるのですが、そのロジック、また、それ以外の
方法がありましたら、お教え願いますでしょうか？

> ２次元配列で１次元目の添え字でソートを行いたい場合、

基本的には１次配列のソートと同じです。
ソートのルーチンは下記のサンプルが良いと思います。
http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/vb_t06.htm

> ADOで、論理テーブルに一度配列データをセットして、
> ソートをかけてから、配列に入れなおす方法があると

やり方はいろいろとあります。
Listboxに入れてソートする方法などもありますが、まず、基本を抑えてからの方が良いと考えます。

インターネットで「VB　ソート」で検索してみることをお勧めします。

ここの逆引きヘルプにも色々揃っております。

［ソート法いろいろ（ゆう（U）さん投稿による）］　

ちょっと、私には複雑そうですが、やってみます！！
ありがとうございました！！

一番単純なバブルソートを使ったソート例です。

Private Sub Command1_Click()
    Dim dat(14, 2)  As Long
    Dim i       As Long
    Dim j       As Long
    Text1.Text = ""
    For i = 0& To 14
        dat(i, 0) = CLng(99 * Rnd)    'ランダムなデータを作成
        Text1.Text = Text1.Text & dat(i, 0) & vbCrLf
    Next i
    'バブルソート
    For i = 0& To 14
        For j = i To 14
            If dat(i, 0) > dat(j, 0) Then   '逆にすれば降順並びに
                Swap dat(i, 0), dat(j, 0)
            End If
        Next j
    Next i
    Text2.Text = ""
    'ソート結果を表示
    For i = 0& To 14
        Text2.Text = Text2.Text & dat(i, 0) & vbCrLf
    Next i
End Sub