ordinamento database con bottone

[davidspy]

ciao
vorrei sapere se è possibile premendo un bottone far ordinare il database con il campo specificato:
-----connessione database-----------------------------------

Private Sub fclsEsempioDatabase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        m_cnConnessioneADO.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                 "Data Source= c:\comuni.mdb")
        m_rstContatti.Open("Contacts", m_cnConnessioneADO, _
        ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)


        Call MostraRecordCorrente()
    End Sub

--------------pulsante----------------------------

 Private Sub btnAggiungiNuovo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAggiungiNuovo.Click
        m_rstContatti.AddNew()
        m_rstContatti.Fields("ContactName").Value = txtNuovoNomeContatto.Text
        m_rstContatti.Fields("State").Value = txtNuovoStato.Text
        m_rstContatti.Fields("tel2").Value = tel2u.Text
        m_rstContatti.Fields("fax1").Value = fax1u.Text
        m_rstContatti.Fields("fax2").Value = fax2u.Text
        m_rstContatti.Fields("note").Value = noteu.Text

        m_rstContatti.Update()
        Call MostraRecordCorrente()
    End Sub