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