在线请教在vb中如果执行有输出参数的存储过程？

本人现在做一个vb小程序，是用于等用户登陆进行验证的。具体代码如下：
确定按钮的：Dim rslogin As ADODB.Recordset
Dim blnlogined As Integer
Dim arr(1)
cmdstock.CommandText = "validate_login"
cmdstock.CommandType = adCmdStoredProc
Set cmdstock.ActiveConnection = constock
arr(0) = "'" & Trim(txtuser.Text) & "'"
arr(1) = "'" & Trim(txtpassword.Text) & "'"cmdstock.Execute , arr
blnlogined = cmdstock.Parameters(2).Value
Debug.Print blnlogined
存储过程的代码：
CREATE PROCEDURE validate_login  
@loginuser varchar(10),
@loginpassword varchar(16),
@logined int output
AS
select @logined= count(*)    from employee 
where loginuser=@loginuser and password=@loginpassword
return @logined
GO
我遇到的情况是。如果输入正确的用户名和密码那么blnlogined返回正确的值是1，现在本人无论输入正确与否都返回错误的。
各位老大们请帮忙看看啊。数据环境都准备过了
如果哪位朋友能给我做一个有输出参数的存储过程执行过程最好了，谢谢先