VB Business Tier to be modified to support shared DataObjectTier