Sn. sledgeab'ın çözümü haricinde farklı bir teknik ile,
sıralama ve filtreleme ile ilgili çok sevdiğim bir örneği ekte bulabilirsiniz.
Kaynak (12.Konu): http://bilgiteknoloji.net/access/

Biraz kod bilginiz varsa basitçe kendinize uyarlayabilirsiniz.
Ben sadece sizin istediğiniz kadar olanı uyguladım örneğinize.

Örneğin ürün sıralama için yazılan kod:

Private Sub Komut18_Click()

    OrderBy = "urun"

    OrderByOn = True

End Sub