既に開かれている場合、

ボタンクリックなどで…

 Dim rec As ADODB.Recordset
 Set rec = Me.Recordset
 rec.Sort = " 並び替えたいField " ' 降順にしたい場合は DESC をつける
 Set Me.Recordset = rec
 Set rec = Nothing

とすればよい。