DatabaseObjects
ObjectByOrdinalFirst(ByVal objCollection As IDatabaseObjects) As IDatabaseObject
ObjectByOrdinalFirst returns the first object in the collection sorted by the collection's IDatabaseObjects_OrderBy. It differs from ObjectByOrdinal in that it only loads the first record from the database table not the entire table.
Dim objDefaultSupplier As Supplier
'ObjectByOrdinalFirst is ideal for loading default objects
Set objDefaultSupplier = DBO.ObjectByOrdinalFirst(objGlobalSuppliersInstance)