类实例的正确使用

我正在使用Access2003 VBA处理生产物料清单的递归数据。我构建了一个类模块,让主表具有静态范围。这似乎简化了递归——当我遍历一个BOM时,它使我可以自由地向下和向上计数级别。我不是重复打开同一个记录集,而是过滤了很多内容。

在进行了这项工作之后,我阅读了关于对象关系建模的内容,并决定不引用记录集,而是引用一个记录。那么该记录的字段可以是属性。经过大量的工作和许多大错特错的胜利的激动之后,我意识到这种方法没有任何好处,因为访问是基于表的。

我的课程模块仍然像以前一样有用。我的问题是关于下面两个备选版本。第一个实例使用两个实例(父实例、子实例)。第二个使用一个,然后重用它。显然,第一个是ORM影响。

有没有理由选择其中一个而不是另一个?另外,请注意末尾的斜体字:如果我不需要它(因为我不需要关于父级的更多信息),这会改变答案吗?有人能帮我全面思考吗?

(注意,我关闭记录集,但不关闭类实例。我的理解是,VBA实例关闭自己,让它们这样做是公认的实践。我似乎把伪代码带到了伪代码的新层次…目标是清晰,希望能奏效。)

    VERSION 1 
    Property Sub ReviewPart ( Parent_Part_ID )

    Get Parent_Part_ID
    Create instance of Class --> Get recordset
    Filter Class recordset ( Parent_Part_ID )
    Exploit Class recordset
    See if Parent_Part_ID has Childs
    If it does:
       Open recordset of Childs
       For each Child
         Get Child_Part_ID
         Create instance of Class --> Get recordset
         Filter Class recordset ( Child_Part_ID )
         Exploit Class recordset
         See if Child_Part_ID has Childs
         If it does:  
           Instance New ReviewPart ( Child_Part_ID )
         Otherwise:
         Nothing; Move On
       Next Child
       Close recordset of Childs
    Otherwise:
       Move On
    Exploit Class recordset ( still points to parent )
 
    
    VERSION 2
    Property Sub ReviewPart ( Parent_Part_ID )

    Get Parent_Part_ID
    Create instance of Class --> Get recordset
    Filter Class recordset ( Parent_Part_ID )
    Exploit Class recordset
    See if Parent_Part_ID has Childs
    If it does:
       Open recordset of Childs
       For each Child
         Get Child_Part_ID
         Create instance of Class --> Get recordset
         Filter Class recordset ( Child_Part_ID )
         Exploit Class recordset
         See if Child_Part_ID has Childs
         If it does:  
           Instance New ReviewPart ( Child_Part_ID )
         Otherwise:
         Nothing; Move On
       Next Child
       Close recordset of Childs
    Otherwise:
       Move On
    Filter Class recordset ( Parent_Part_ID )
    Exploit Class recordset ( still points to parent )