添加集合类问题,提速问题

Question

类集合ADD方法CType是一个类.
Public Sub Add(objType As CType)
  mCol.Add objType, "A" & objType.ID
End Sub
''添加时.  '往集合中添加查询结果
  Dim i As Long
  Dim objType As CType
  For i = 1 To rs.RecordCount
    Set objType = New CType
    With objType
      .ID = rs("TypeID").Value
      .TypeName = Trim(rs("TypeName").Value)
      .SuperID = IIf(IsNull(rs("SuperID").Value), 0, rs("SuperID").Value)
    End With
    Me.Add objType
    Set objType = Nothing
    rs.MoveNext
  Next i
''''Set objType = New CType与Set objType = Nothing这两句怎么放在FOR循环里面是速度有些慢.放在循环外面,速度明显快好多,,就是增加的类集合都是最后一个添的数值.就是添加一万条,一万条都是第10000条的值,都是最后一个的值呀.那个知道怎么提点速.

Answer 1

不明白为什么要做这样的处理，dataset本身就是一个集合