Visual Basic - AYUDA PORFAVOR!!! CON CONSULTA

HOLA
Tengo el siguiente problema:
estoy buscando un dato de una bd datos que tengo en sql server, pero cuando lo mando traer me marca este error "ado no encontro el objeto en la coleccion correspondiente con el
nombre o referencia ordinal solicitada por la aplicacion" EN ESTE PEDAZO DE CODIGO resultado.Text = res!clave
Ojala me puedan orientar porfavor de ante mano Gracias.
Este es el codigo y el sp
previamente ya hice la conexion
scita = InputBox("Introduzca la cita", "Añadir cita")
If iscita <> "" Then
Set res = New ADODB.Recordset
Set cnm = New ADODB.Command
cnm.CommandText = "nombre_bus"
cnm.CommandType = adCmdStoredProc
cnm.Parameters.Append cnm.CreateParameter("cita", adVarChar, adParamInput,
10,iscita)
cnm.Parameters.Append cnm.CreateParameter("@clave", adNumeric,
adParamOutput, 3)
Set cnm.ActiveConnection = cn
Set res = cnm.Execute()
resultado.Text = res!clave
res.Open "nombre_bus"
codigo sql server
CREATE PROCEDURE [nombre_bus]
@cita varchar(10),@clave int output
as
set nocount off
if exists(select cita from citas where cita=@cita)
begin
select @clave=clave from citas where cita =@cita
end

En tu SP tienes el campo @clave, pero en VB lo lees como clave, ese es el problema, trata de poner el mismo nombre, te suguiero que cambies el SP de @clave a clave.

Saludos desde Lima