VB在EXECL畫餅圖的出現的問題

        Dim co     As Excel.ChartObject
          Set co = oWorksheet.ChartObjects.Add(330, 50, 214, 214)
          co.Chart.ChartWizard SOURCE:=oWorksheet.Range(Cells(4, 2), Cells(i + 2, 4)), _
                  Gallery:=xlPie, Format:=1, PlotBy:=xlColumns, _
                  CategoryLabels:=1, SeriesLabels:=0, HasLegend:=1
         Set co = Nothing
這是用VB連結數據庫,抓出的數據填入EXECL中,然後根據數據畫餅圖的代碼,但是只有每次第一次進系統時,能動態產生餅圖,但是第二次或第二次以後就不能產生餅圖了,是什麼原因?只有退出系統,重新進入系統時才能再產生餅圖,請教各位了.謝謝! --------------------编程问答-------------------- 有错误提示吗？ --------------------编程问答-------------------- 沒有,就是第二次畫不出來.只有關閉程序,重新打開,才能再畫出來

补充：VB ,  数据库(包含打印，安装，报表)