CREATE PROCEDURE test(@dwbh CHAR(7)) AS
--给要返回值起个别名就可以了
select dwbh as s1,dwsj as s2,dwzt as s3 from dwjbda where dwbh=@dwbh
下面是vb的过程
private sub refreshlist()
dim rs as recordset
set rs=mconn.execute("test",,adcmdstoredproc)
txt.text=rs("s1")
end sub