Never declare a variable as a “New” of type “object,” but always rather just as of type “object.” If you do so you will always increment the reference count of the object, even though you do not use it. Also, always remember to set your objects to nothing when finished. The wrong way is:

 Private Sub Foo()    Dim oCust as New clsCust    'do stuff with oCustEnd Sub

The right way is:

 Private Sub Foo()    Dim oCust as clsCust    Set oCust = New clsCust    'do stuff with oCust    Set oCust = NothingEnd Sub