VB如何取得存储过程的二个返回值

Question

CREATE PROCEDURE myProc @ClientName varchar(10),@Total int
 AS
declare @result1 varchar(20)，@result2 varchar(20)begin transaction  
update tb1 set 总分=@Total where 姓名=@ClientName 
.
.
.
.if @@error <> 0 begin 
   set @result1='Error'
   set @result2='错误'
    rollback transaction  
end
else begin 
   set @result1='OK'
   set @result2='保存'
   commit transaction   
endlabel:
   set @result1='Fail'
   set @result2='失败'
    rollback transaction
GO如何在VB程序中获得@result1、@result2的值（我用ADO，能否给出一个详细的VB过程代码，谢谢

Answer 1

CREATE PROCEDURE myProc @ClientName varchar(10),@Total int
 AS
declare @result1 varchar(20)，@result2 varchar(20)begin transaction
update tb1 set 总分=@Total where 姓名=@ClientName
.
.
.
.if @@error <> 0 begin
  set @result1='Error'
  set @result2='错误'
  rollback transaction   
end
else begin  
  set @result1='OK'
  set @result2='保存'
  commit transaction   
endlabel:
  set @result1='Fail'
  set @result2='失败'
  rollback transactionselect @result1 as RES1,@result2 as RES2
GO

Answer 2

dim res1 as string
dim res2 as string
res1=Trim(CStr(RecordSet1.Fields.Item("RES1")))
res2=Trim(CStr(RecordSet1.Fields.Item("RES2")))

Answer 3

能不能不用记录集，因为在过程中前面有select 命令的记录集