Vejamos então o que vc escreveu e vamos vê se desta vez eu acerto:
"mas agora o que eu preciso é fazer isto funcionar em um comandbutton"
Vamos lá
Digamos que vc esta com seu Recordset carregado, certo? para o botão saber por qual campo vc quer que seja ordenado então vc coloca um Combo com o nome dos campos e ao selecionar o campo na combo e clicar no botão então ordena o RS, assim:
Private Sub Command1_Click()
Rs.sort = combo1.text
End Sub