各位大，求助一个Collection问题!在线等！

Question

如题：
Private m_colCCMachineTypeID() As Collection      
Private m_colCCMachineID() As Collection ReDim m_colCCMachineTypeID(3) As Collection
ReDim m_colCCMachineID(3) As Collection    For j = 0 To 3
        Set m_colCCMachineTypeID(j) = New Collection
        p_Rs.MoveFirst
        For i = 1 To p_Rs.RecordCount
            If j = 0 Then
              m_colCCMachineTypeID(j).Add p_Rs.Fields（"MachineTypeName") －－>第一步　
                Exit For
            Else
                If arrMachineType(j - 1) <> p_Rs.Fields("MachineTypeID") Then
                    m_colCCMachineTypeID(j).Add p_Rs.Fields("MachineTypeName")-->第二步　
                End If
            End If
            p_Rs.MoveNext --->第三步
        Next
    Next然而出现这样一种情况，
当第一步运行完后，m_colCCMachineTypeID(0).Item(1)结果是“CC"
当第二步运行完后，m_colCCMachineTypeID(1).Item(1)结果是“BB"
同时也将m_colCCMachineTypeID(0).Item(1)的结果也变成了"BB"请哪位高手指教！

Answer 1

语句怎么写的乱七八糟的，怎么又是数组，又是集合的啊