สมมุติต้องการเรียงฟิลด์ชื่อ ID จากน้อยไปหามาก บนฟอร์ม
ที่ปุ่ม Event > On Click

    Me.OrderBy = "ID"
    Me.OrderByOn = True

หากต้องการเรียงจากมากไปหาน้อย

    Me.OrderBy = "ID DESC"
    Me.OrderByOn = True

หากต้องการกดสลับ มากไปน้อย น้อยไปมาก

    If Me.OrderBy Like "*DESC" Then
        Me.OrderBy = "ID"
        Me.OrderByOn = True
    Else
        Me.OrderBy = "ID DESC"
        Me.OrderByOn = True
    End If

ปรับใช้ดูครับ

ปล. การต้องการเรียงมากกว่า 1 ฟิลด์ ให้ใช้เครื่องหมาย , ขั้นระหว่างชื่อ เช่น ID, Name เป็นต้น
ชื่อที่ใช้อ้างเป็นชื่อ ฟิลด์ของตาราง ไม่ใช่ชื่อคอนโทรลของฟอร์ม

โอ้....
ทำได้แล้วครับ สลับการเรียงได้ด้วย
ขอบคุณ ท่าน TTT มากครับผม
ที่กรุณาสละเวลามาให้คำตอบ