CollatingOrder Property Example (MDB)

The following example checks the CollatingOrder property for the current database:

Sub SetSortOrder()
    Dim dbs As Database

    ' Return reference to current database.
    Set dbs = CurrentDb
    ' Check CollatingOrder property for database.
    Debug.Print dbs.CollatingOrder
    Set dbs = Nothing
End Sub