VB6-未添加到集合的项目

我在建立数据集合时遇到问题。问题代码如下所示：

    'Basic defitions are as follows:
     Private mCol As Collection
     Dim mcnn As ADODB.Connection
     Dim mrs As New ADODB.Recordset

     Dim uCustomClass As CustomClass
     On Error GoTo 0
     'set Find to false to catch any errors
     Find = False
     'checks for an active connection and then..
     Set mCol = Nothing
     Set mCol = New Collection
     With mrs
     .Open AN_SQL_SELECT_STATEMENT , mcnn, adOpenForwardOnly, adLockOptimistic
     While Not .EOF
        Set uCustomClass = New CustomClass
        Set uCustomClass.Connection = mcnn
        uCustomClass.CustomerName = NullToEquiv(.Fields("customer_name").Value,NULL_STRING)
        uCustomClass.NumberOfOrders = NullToEquiv(.Fields("num_of_orders").Value, NULL_LONG)
        uCustomClass.FavoriteColour = NullToEquiv(.Fields("favorite_colour").Value, NULL_STRING)

        'Cache orginal values in case the keys change
        uCustomClass.CacheOriginalValues
        'add to collection
        mCol.Add uCustomClass
        .MoveNext
    Wend

现在，在运行时执行此操作的结果是uCustomClass树结构如下所示：

    -uCustomClass
       +connection
        count
       + mcnn
       -mCol
          +Item1
          +Item2
          +Item3      
       +mrs
        mvarChangedCount
       +NewEnum

这一切都很好吧，我没有直接在uCustomClass下获得Item1、Item2和Item3，而只是在mCol中。我在其他地方为不同的自定义类运行了看起来完全相同的代码，我得到了我想要的

    -uCustomClassThatWorks
        +connection
         count
        + mcnn
        -mCol
           +Item1
           +Item2
           +Item3      
        +mrs
        mvarChangedCount
        +NewEnum
        +Item1
        +Item2
        +Item3

---

你知道问题出在哪里吗？

不知道

uCustomClass

将如何添加这些项目。是不是有什么代码丢失了

---

值得一提的是，集合不能多次具有相同的键，这可以解释为什么它们可以添加到一个区域中，但不能再次添加。甚至可能有什么东西在修剪细绳，或者有什么东西会使情况恶化。因此，只需确保您的密钥是唯一的。

不确定

uCustomClass

将如何添加这些项。是不是有什么代码丢失了

值得一提的是，集合不能多次具有相同的键，这可以解释为什么它们可以添加到一个区域中，但不能再次添加。甚至可能有什么东西在修剪细绳，或者有什么东西会使情况恶化。所以只要确保你的钥匙是独一无二的