一个添加数据的有关问题

一个添加数据的问题
我要的结果如下图


可是我写出来的结果是这样的：

            cI = UBound(T(0).Cut)
            For c = 0 To cI
                If SafeArrayGetDim(T(0).Cut(c).value) <> 0 Then
                    vI = UBound(T(0).Cut(c).value)
                    For v = 0 To vI
                        myAccess = "select * from Table"
                        mySet(0).Open myAccess, conn(0), adOpenDynamic, adLockOptimistic
                        mySet(0).AddNew                        
                        mySet(0).Fields(c + 1) = T(0).Cut(c).value(v)
                        mySet(0).Update
                    Next v
                End If
            Next c








望各位指点，谢谢！
[解决办法]
            cI = UBound(T(0).Cut)
             For c = 0 To cI
                 If SafeArrayGetDim(T(0).Cut(c).value) <> 0 Then
                     vI = UBound(T(0).Cut(c).value)
                         myAccess = "select * from Table"
                         mySet(0).Open myAccess, conn(0), adOpenDynamic, adLockOptimistic
                         mySet(0).AddNew   
                     For v = 0 To vI
                     
                         mySet(0).Fields(c + 1) = T(0).Cut(c).value(v)

                     Next v
                         mySet(0).Update
                 End If
             Next c

大概是这样，没有仔细看，要把那个提取到循环外面一层。