为什么我调用这个存储过程返回不到值的？

Question

CREATE  proc  getBh1
  @bhmc varchar(12)ASDeclare @a Varchar(8)
Select @a = ''Update bh1 set lsh=lsh +1 Where bhmc=@bhmcselect @a=dm+replicate('0',(8-len(dm)-len(  Cast((lsh) as varchar))))+Cast((lsh) as varchar) from bh1 where bhmc=@bhmc
select @a as bh
go调用：
Dim sql1 As String
       
              Dim rs As ADODB.Recordset
       
             sql1 = "EXEC getBh1 'krbh'"
            Set rs = conn.Execute(sql1, , adCmdText)
            
            MsgBox rs.Fields.Count           GetBh1 = rs.Fields("bh").Value               rs.Close
       
       Set rs = Nothing但在SQL SERVER查询分析器中能返回一个值。

Answer 1

执行完后，RECORDSET的.State属性为0。

Answer 2

http://blog.csdn.net/online/archive/2004/08/05/66376.aspxConn.CursorLocation = adUseClient '设置为客户端