主题：VB下的单,OrderStatusEx2没反应

Sub OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, IndexCode1, Market1, OrderType, Aspect, Kaiping, Account,AccountType)
 'wg_rst.Open "select * from wg_order",wg_cnn,adOpenKeyset,adLockOptimistic
msgbox time&" ao" 
 wg_rst.Open "select * from wg_order",wg_cnn,1,3
 wg_rst.AddNew

 wg_rst("rq")=DATE
 wg_rst("sj")=TIME
 wg_rst("OrderID")=OrderID
 wg_rst("Status")=Status
 wg_rst("Filled")=Filled
 wg_rst("Remaining")=Remaining
 wg_rst("Price")=Price
 wg_rst("IndexCode1")=IndexCode1
 wg_rst("Market1")=Market1
 wg_rst("OrderType")=OrderType
 wg_rst("Aspect")=Aspect
 wg_rst("Kaiping")=Kaiping
 wg_rst("Account")=Account
 
 wg_rst.update
 wg_rst.close
application.MsgOut time&" "&OrderID
End Sub

VB下的单,OrderStatusEx2没反应

msgbox都没有弹出来,请帮忙看看是什么问题,谢谢

//下单语句

sub aa1()
set rpt=marketdata.GetReportData("if04","zj")
newprice=rpt.newprice+2

call Order.Buy(0,2,newprice,0,"if04","zj","40009462",0)

end sub