各位老师，求解决

各位老师，急求解决！在线等
存储过程很简单，就是返回rkdjh字段的最大值：
CREATE PROCEDURE [rkd_ID] 
@rkdjh int output 
AS
select max(rkdjh) from rkd
return
GO
我在查询分析器里用：declare @rkdjh int
  EXECUTE rkd_ID @rkdjh
已经执行成功.
但在VB里总是提示最后一句：“实时错误‘3265’：在对应所需名称或序数的集合中，未找到项目。”
Dim strCnn As String
Dim lsph As Integer
Set cnn1 = New ADODB.Connection
strCnn = "Driver={SQL server};server=FS;uid=sa;pwd=;database=yd"
cnn1.Open strCnn
Dim mycommand As New ADODB.Command
Dim parm As New ADODB.Parameter
 mycommand.ActiveConnection = strCnn
mycommand.CommandText = "rkd_ID"
mycommand.CommandType = adCmdStoredProc
Set param = mycommand.CreateParameter("@rkdjh", adInteger, adParamOutput)
mycommand.Parameters.Append param
mycommand.Execute
lsph = mycommand.Parameters("@rkdjh").Value '将返回值赋给变量lsph


------解决方案--------------------
搞错了。试试param.Value。
------解决方案--------------------
表名或字段名写错了
------解决方案--------------------
lsph = param.Value & ""