举例:dim cnn as new connection
dim cmd as new command
dim param1 as new parameter
dim param2 as new parameter
dim param3 as new parameteron error goto Err
//建立数据库连接
cnn.connectionstring=你要的连接串
cnn.open
set cmd.activeconnection=cnn
//设置命令对象
cmd.commandtype=adcmdstoredprocedure
cmd.commandtext=你写的存储过程名
//添加参数对象
set param1=cmd.createparameter("insn1",addatetime,adparaminput,inSN)
set param2=cmd.createparameter("insn2",addatetime,adparaminput,inSN)
set param3=cmd.createparameter("RetVal",adinteger,adparamoutput)
cmd.parameters.append param1
cmd.parameters.append param2
cmd.parameters.append param3
//执行之
cmd.execute
//得到结果  OutRet=clng(param3) '得到你想要的返回值exit sub
Err:
  msgbox err.number & err.descrpition
end sub