Como ordeno una consulta por el monto más alto

Hola tengo una consulta y de un país y quiero que me muestre como un ranking pero por el monto
Private Sub ranking_Click()
Set m1 = ex0.Execute("select * from " & Combo3.List(Combo3.ListIndex) & " where codigopais like '" & a.Text & "' order by monto")
If m1.EOF Then
MsgBox "No hay exportaciones a esta empresa.", vbCritical, "NO HAY EXPORTACIONES"
Else
Do While Not m1.EOF
s_cad = ""
For I_num = 0 To m1.Fields.Count - 1
s_cad = s_cad & m1(I_num) & " - "
Next
List1.AddItem s_cad
m1.MoveNext
Loop
End If
End Sub
El order by no hace lo que quiero del monto mayor al menor
Gracias