ORDER BY Clause Example

The SQL statement shown in the following example uses the ORDER BY clause to sort records by last name in descending order (Z-A).

This example calls the EnumFields procedure, which you can find in the SELECT statement example.

Sub OrderByX()

   Dim dbs As Database, rst As Recordset

   ' Modify this line to include the path to Northwind
   ' on your computer.
   Set dbs = OpenDatabase("Northwind.mdb")

   ' Select the last name and first name values from 
   ' the Employees table, and sort them in descending 
   ' order.
   Set rst = dbs.OpenRecordset("SELECT LastName, " _
      & "FirstName FROM Employees " _
      & "ORDER BY LastName DESC;")
   
   ' Populate the Recordset.
   rst.MoveLast
   
   ' Call EnumFields to print recordset contents.
   EnumFields rst, 12

   dbs.Close

End Sub