IDatabaseObject Interface
 IsSaved As
    Boolean
 DistinctValue As
    Variant
Load(ByVal objFields As
    SQLFieldValues)
Save() As SQLFieldValues
 IsSaved As
    Boolean
 DistinctValue As
    Variant
Load(ByVal objFields As
    SQLFieldValues)
Save() As SQLFieldValues