怎样在Access中调用Excel的Yield函数？（付失败的code）

leontancfa

Hi.我尝试用以下的code调用Excel中的yield函数，但得到以下错误信息：
Error '91': Object variable or With block variable not set
我是错在哪里呢？谢谢。

Public Function yield(settlement, maturity, rate, pr _
                      , redmeption, frequency, basis)
Dim xlATP As OCATP
'
yield = xlATP.yield(settlement, maturity, rate, pr, redmeption, frequency, basis)
End Function


Sub test()
a = yield(DateValue("3/13/2009"), DateValue("10/22/2009"), 0.0115, 99.324, 100, 2, 2)
End Sub