ถามไว้ที่ 
http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_97&Number=178962&page=0&view=&sb=&o=&fpart=1&vc=1&PHPSESSID= 
 
เขาต้องการ Sort โดยให้ผู้ใช้เลือกที่จะ Sort โดย Name หรือ Date Time. 
 
ผมแนะนำให้เข้าใช้ Toggle Button มีโค้ดดังนี้ครับ 
 
Private Sub tglSort_Click() 
Dim strSort As String, strSQL As String 
strSQL = "SELECT tblA.CurDate, tblA.Description FROM tblA" 
If Me.ActiveControl.Caption = "Sort By Name" Then 
    strSort = " Order By Description" 
    Me.ActiveControl.Caption = "Sort By Date" 
Else 
    strSort = " Order By CurDate" 
    Me.ActiveControl.Caption = "Sort By Name" 
End If 
Me.List2.RowSource = strSQL & strSort 
Me.List2.Requery 
End Sub