If you're talking about a listbox, then you have to change the row source in the button click event...
Private Sub SortByFirstNameButton_Click()
Me.List1.RowSource = "Select PersID, Fname, Lname From MyTable Order By Fname"
End Sub
Private Sub SortByLastNameButton_Click()
Me.List1.RowSource =...