！定义了个ole，链接不下，报错

求助！定义了个ole，链接不上，报错
在窗口open事件写如下代码：
ole_1 ole_object
Integer   li_ret,li_rtn


ole_object = CREATE ole_1

li_ret = ole_object.ConnectToObject("","Excel.Application")
IF li_ret <> 0 THEN
   /*--如果Excel还没有打开则新建--*/
   li_ret = ole_object.ConnectToNewObject("Excel.Application")
   if li_ret <> 0 then
      MessageBox('OLE错误','OLE无法连接!错误号：' + string(li_ret))
      li_rtn = -1
   end if
   ole_object.Visible = False  //一般自动保存时设为不可视
END IF

然后报错：
error：c0051：unknown  function name: connecttoobject
error：c0051：unknown  function name: connecttonewobject

[解决办法]
ole_1是什么东西

应该是
oleobject ole_object
ole_object = craete oleobject
if ole_object.connecttonewobject("excel.application") <> 0 then

    //无法连接ole
end if