高手看一下，关于VB调用Execel的问题。

我用VB调用Execel生成报表，在2000、xp下面都没有问题，但是到了98下面出现问题了。执行程序后，我发现能够通过程序打开我的模板文件，但是上面没有写数据，我在98下面分步调试的时候，往execel中写数据的代码也执行了，但是就是没有数据，急呀。
   下面是我的调用execel的代码：  
   Dim VBExcel As Excel.Application
   Dim xlbook As Excel.Workbook '定义Excel工作簿对象
   Dim xlsheet As Excel.Worksheet '定义Excel工作表对象
   Set VBExcel = CreateObject("excel.application")
   VBExcel.Visible = True
   '根据操作人员是否需要见到Excel此处可设为TRUE 或FALSE
    Dim strPath As String
    strPath_s = App.Path & "\xls\mod_d.xls"
    strPath_d = App.Path & "\xls\temp.xls"
    'On Error Resume Next
    FileCopy strPath_s, strPath_d
    Set xlbook = VBExcel.Workbooks.Open(strPath_d)
    'ExcelFile为事先设计好的Excel模板文件 (包括路径)
    Set xlsheet = xlbook.Worksheets("test1")
    'Salary 为Excel模板工作表的名字
    xlsheet.Activate    下面是部分写数据的代码：
     xlsheet.Cells(7, 4) = CSng(rs_f("wgdl4")) + CSng(rs_f("wgdl5"))
       xlsheet.Cells(7, 5) = CSng(rs_f_s("wgdl4_s")) + CSng(rs_f_s("wgdl5_s"))
       
       xlsheet.Cells(8, 4) = CSng(rs_f("gf4")) + CSng(rs_f("gf5"))
       xlsheet.Cells(8, 5) = CSng(rs_f_s("gf4_s")) + CSng(rs_f_s("gf5_s"))
       
       xlsheet.Cells(9, 4) = CSng(rs_f("dg4")) + CSng(rs_f("dg5"))
       xlsheet.Cells(9, 5) = CSng(rs_f_s("dg4_s")) + CSng(rs_f_s("dg5_s"))
       
       xlsheet.Cells(10, 4) = CSng(rs_f("pd4")) + CSng(rs_f("pd5"))
       xlsheet.Cells(10, 5) = CSng(rs_f_s("pd4_s")) + CSng(rs_f_s("pd5_s"))
       
       xlsheet.Cells(11, 4) = fdl1 - CSng(rs_b("gycb4")) - CSng(rs_b("gycb5"))
       xlsheet.Cells(11, 5) = fdl2 - CSng(rs_b_s("gycb4_s")) - CSng(rs_b_s("gycb5_s"))       请高手帮帮忙呀。