源代码基本是从帮助文件中拷贝出来，除了期货品种外没做修改，但是返回值总是0。 从帮助得知，返回0的时候出错，正确时应该返回1。 请问怎样能让程序正常运行？
目前使用的版本是： 标准版2.972， 模拟帐户。
程序如下：
Sub cmdTest_Click()
dim orderid
dim ConSign
dim Filled
dim Remaining
dim Action
dim OrderType
dim LmtPrice
dim Account
dim Kaiping
iResult = order.OrderInfoByCode2("IF03","ZJ",orderid,ConSign,Filled,Remaining,Action,OrderType,LmtPrice,Account,Kaiping)
'打印输出未成交订单ID（可用此ID进行撤单）
application.msgout iResult
End Sub
帮助文档里说， 函数的返回值反馈该函数执行的正确与否，iResult现在是这个函数执行状态。 如果程序正确，iResult应该是1，而不是0。可现在iResult总是0？