DatabaseObjects
ObjectFromRecordset(ByVal objCollection As IDatabaseObjects, ByVal rsSource As Recordset) As IDatabaseObject
ObjectFromRecordset loads an object using the current row from a Recordset object.
Dim objProduct As Product
Dim rsProducts As RecordSet
Set rsProducts = ...
Set objProduct = ObjectFromRecordset(objGlobalProductsInstance, rsProducts)