請教調用有返回參數(OutPut)的存儲過程問題


請教調用有返回參數(OutPut)的存儲過程問題
'表CREATE TABLE [Users] (
[id] [int] IDENTITY (1, 1) NOT NULL ,
[Cname] [char] (10) COLLATE Chinese_Taiwan_Stroke_CI_AS NULL ,
[Ename] [char] (10) COLLATE Chinese_Taiwan_Stroke_CI_AS NULL ,
[pwd] [char] (10) COLLATE Chinese_Taiwan_Stroke_CI_AS NULL ,
[sex] [char] (10) COLLATE Chinese_Taiwan_Stroke_CI_AS NULL ,
[email] [char] (10) COLLATE Chinese_Taiwan_Stroke_CI_AS NULL ,
) ON [PRIMARY]GO
'存儲過程
CREATE PROCEDURE UP_BBC
(
  @email [char] (10),
  @sex [char] (10) output
 )  ASselect sex,email from users where email=@emailGO
'過程
Private Sub CountPro()Dim conn As adodb.Connection
Dim rs As adodb.Recordset
Dim cmd As adodb.Command
Dim param As adodb.Parameter
Set conn = New adodb.Connection
Set cmd = New adodb.Command
Set rs = New adodb.Recordset
conn.ConnectionString = "driver={sql server};server=.;uid=sa;pwd=123;database=UPFL"
conn.CursorLocation = adUseClient
conn.Open
cmd.ActiveConnection = conn
cmd.CommandText = "UP_BBC" 
cmd.CommandType = adCmdStoredProc
Set param = cmd.CreateParameter("email", adChar, adParamInput, 30, Trim(Text1.Text))
cmd.Parameters.Append param
Set param = cmd.CreateParameter("sex", adChar, adParamOutput)
cmd.Parameters.Append param'執行到此處時出現錯誤提示"提供不一致或不完全的資訊導致參數物件不適當地被拒"(為什麼？很郁悶)
Set rs = cmd.Execute
MsgBox rs.RecordCountEnd Sub