在请教 还是不明白 存储过程，一定要弄明白

Question

CREATE PROCEDURE [spKL_XG] 
(@rybm varchar(10),@pswd varchar(10),@Reval char(1) output)
AS
  select @Reval='0'  update 超级用户
  set 超级用户密码=rtrim(@pswd)
  where 超级用户名=rtrim(@rybm)
  if @@Rowcount=1
     select @Reval='1'Private Sub cmdSave_Click()
    On Error GoTo ExecuteError
    If Trim$(txtXMM.Text) <> "" Then
        If Trim$(txtQRMM.Text) <> "" Then
            If Trim$(txtQRMM.Text) <> Trim$(txtXMM.Text) Then
                MsgBox "密码不正确,请重新输入。", vbExclamation + vbOKOnly, "系统提示信息"
                txtXMM.Text = ""
                txtXMM.SetFocus
                txtQRMM.Text = ""
                Exit Sub
            Else
                With Ado_Command
                    .ActiveConnection = DBcnn
                    .CommandType = adCmdStoredProc
                    .CommandText = "spKL_XG"
                    .Parameters.Append .CreateParameter("@rybm", adChar, adParamInput, 10, LoginUserName)
                    .Parameters.Append .CreateParameter("@pswd", adChar, adParamInput, 10, Trim$(txtQRMM.Text))
                    .Parameters.Append .CreateParameter("@Reval", adChar, adParamOutput, 2, 0)
                    .Execute
                    If .Parameters("@Reval").Value = "1" Then
                        MsgBox "保存成功!", vbInformation, "系统提示信息"
                        txtXMM.Text = ""
                        txtQRMM.Text = ""
                        txtXMM.SetFocus                        Exit Sub
                    End If
                End With
            End If
        Else
           MsgBox "确认密码不能为空!", vbExclamation + vbOKOnly, "系统提示信息"
           txtQRMM.SetFocus
           Exit Sub
        End If
    Else
        MsgBox "新密码不能空!", vbExclamation + vbOKOnly, "系统信息提示"
        Exit Sub
        txtXMM.SetFocus
    End If
    
    Exit Sub
ExecuteError:
    MsgBox Err.Description & Err.Number
    Exit Sub
End Sub这样写好象没有返回值，不会执行if 条件语句？？帮忙看看
还有就是看“什么错误”贴子

Answer 1

CREATE PROCEDURE [spKL_XG] 
(@rybm varchar(10),@pswd varchar(10),@Reval char(1) output)
AS
 set nocount on
  update 超级用户   set 超级用户密码=rtrim(@pswd)  where 超级用户名=rtrim(@rybm)
  if @@Rowcount=1
      select @reval='1'
  else
      select @reval='0'
 set nocount off 
 return @reval
go