Private Sub Etiket0_Click()
xSirala = IIf(InStr(Me.OrderBy, "desc") > 0, " asc", " desc")
Me.OrderBy = "Adi_Soyadi" & xSirala
Me.OrderByOn = True
End Sub
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