OLE自动化问题

本人正在学习VB6中OLE自动化的内容，按照教科书的步骤进行上机练习，出现“实时错误‘438’：对象不支持该属性或方法” 的错误提示。具体步骤如下：

在窗体中建三个标签，Caption属性分别为“单价”、“数量”、“合计”，建三个文本框分别存放单价、数量、合计，建两个命令按钮，Caption属性分别为“计算”、“退出”。代码如下：

Private Sub Command1_Click()
      Dim xlApp As Object                                                '声明对象变量
      Set xlApp = CreateObject("G:\ygz\VB6\example\Calculation.xls")    '装入Excel工作表（建立对象为Excel.Sheet）
      xlApp.Application.Visible = True                                   '设置属性为真
      xlApp.cells(2, 1).Value = Text1.Text                              '将Text1的值存入单元格r2c1
      xlApp.cells(3, 1).Value = Text2.Text
      xlApp.cells(4, 1).formula = "=r2c1*r3c1"                            '单元格r4c1使用公式
      Text3.Text = xlApp.cells(4, 1)                                     '将单元格r4c1的值存入Text3
      xlApp.saves "G:\ygz\VB6\example\Calculation.xls"                   '保存工作表
      xlApp.Application.quit                                             '关闭对象
      Set xlApp = Nothing                                                '清除对象，释放内存
End Sub

Private Sub Command2_Click()
        End
End Sub

进行调试后，错误提示出现在第五行代码。

请高手指点一下，不胜感谢。