create proc test123
@result nvarchar(25) output
as
begin
--select @result = 'haha'
return (select ID from SysObjects Where XType='U' and name='ba72');
end
go

gnrcmd.Parameters.Append gnrcmd.CreateParameter("@RETURN_VALUE", adInteger, adParamReturnValue)
gnrcmd.Parameters.Append gnrcmd.CreateParameter("@DateFrom", adDate, adParamInput, , datefrom)
gnrcmd.Parameters.Append gnrcmd.CreateParameter("@DateTo", adDate, adParamInput, , dateto)
返回值的参数添加必须卸载最前面,提醒自己一下