Option Explicit

'здесь нужно указать строку подключения к Вашему файла данных
Const CONNECTION_STRING = "DSN=MS Access Database;DBQ=D:\test.mdb"

'здесь имя Вашей таблицы 
Const TABLE_NAME = "tbl"

'здесь имя выводимого поля 
Const FIELD_NAME = "Поле1"

'выводит в порядке возрастания
Private Sub CommandButton1_Click()
    Fill "ASC"
End Sub

'выводит в порядке убывания
Private Sub CommandButton2_Click()
    Fill "DESC"
End Sub

'заполняет ListBox1 значениями из поля FIELD_NAME 
Private Sub Fill(ByVal Sort As String)
Dim RS
    ListBox1.Clear
    
    'для простоты использовал позднее связывание
    Set RS = CreateObject("ADODB.Recordset")

    RS.Open "SELECT * FROM [" & TABLE_NAME & "] ORDER BY [" & FIELD_NAME & "] " & Sort, CONNECTION_STRING, 3

    While Not RS.EOF
        ListBox1.AddItem RS.Fields(FIELD_NAME).Value
        RS.MoveNext
    Wend

    RS.Close
    Set RS = Nothing
End Sub