yalnız aşağıdaki kodu gerekli tüm başlık etiketleri için yapmalısınız ben sadece Adi_Soyadi metin kutusuna bağlıEtiket0 adlı etiket için yaptım, siz diğerleri için yapabilirsiniz her tıklamadan sonra sıralama tersine döner

Private Sub Etiket0_Click()

xSirala = IIf(InStr(Me.OrderBy, "desc") > 0, " asc", " desc")

Me.OrderBy = "Adi_Soyadi" & xSirala

Me.OrderByOn = True

End Sub