求救！！！

本人写了个DDE的程序,交换EXCEL数据,此EXCEL表同时与另外一个程序通过DDE交换数据,而且数据更新非常快,几秒更新一次现在的问题是EXCEL一段时间后就死掉了,需重新启动依次EXCEL才能凑效不知哪为仁兄遇到过类似问题,请赐教!在线等待!代码如下：
Text1.LinkMode = 0
   Text1.LinkTopic = "Excel|Sheet1"
   Text1.LinkItem = "R1C1"   ' 设置 LinkItem.   Text1.LinkMode = 1   ' 设置 LinkMode 为自动.   For row = 2 To CurrCount + 1 '从第二行读到最后一行
    For col = 2 To PriceTypeCount + 1 '从Base读到Low
     CurRow = "R" & row & "C" & col
     Text1.LinkItem = CurRow   ' 设置 LinkItem.
     Org_Array(row - 1, col - 1) = Trim(Text1.Text)
    Next col
   Next row