VB调用存储过程,报错:-2147217900:为函数或过程指定了太多参数

sqlserver存储

ALTER proc [dbo].[test123]
   @result nvarchar(25) output
 as
 begin 
     select  'ba72'
 end
-------------------------------------------------------------------------------------

vb调用方式:

cmd.ActiveConnection = cnn
cmd.CommandText = "test123"
cmd.CommandType = 4
cmd.CommandTimeout = 0

cmd.Parameters.Append cmd.CreateParameter("@result", adInteger, adParamInput, 1, 1)
cmd.Parameters.Append cmd.CreateParameter("RETURN_VALUE", adInteger, 4)

cmd.Execute