vb调用带输出参数的存储过程？（紧急）

Question

可以这样传递参数.:
dim conn as adodb.connection
dim rs as aoddb.recordset
dim cmd as adodb.command
dim prm as adodb.parameter
set cnn = new adodb.connection
set rs = new adodb.recordset
with cmd
     .activeconnection = conn
     .commandtxt="Gen_BillNo"  '过程名
     .commandtype=adcmdstoredproc  '设置命令集为存储过程
   '创建一个参数对象 传递参数 
    set prm=creatparameter("OrderNo",adchar,adparainput,16,"参数值")
   '向参数集合添加参数对象
     .parameters.append prm
     set rs=.execute  '返回记录集
end with