Visual Basic - recuperar los datos retornados en un procedimiento

recuperar los datos retornados en un procedimiento almacenado

aja... ¿y cual es la pregunta?

en el procedimiento almacenado yo coloco return(0) cuando grabo como puedo hacer para capturar ese valor asi puedo saber si tuvi exito o no la ejecucion del procedimiento almacenado

gracias

Igual a su otra pregunta, sobre la configuración de la impresora, muy explícita.

ALLI ESTA EL CODIGO DE VISUAL BASIC

Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset

Set cmd = New ADODB.Command

Dim param1 As New ADODB.Parameter
Dim param2 As New ADODB.Parameter

cmd.ActiveConnection = cn
cmd.CommandType = adCmdStoredProc

cmd.CommandText = "sp_ingresardepartamento"

Set param1 = cmd.CreateParameter("Columna1", adChar, adParamInput, 4, TxtCodigo.Text)
Set param2 = cmd.CreateParameter("Columna2", adVarChar, adParamInput, 50, TxtDescrip.Text)

cmd.Parameters.Append param1
cmd.Parameters.Append param2

Set rs = cmd.Execute

ESTE ES EL CODIGO DEL PROCEDIMIENTO ALMACENADO

create procedure sp_ingresardepartamento
@col1 char(4),
@col2 varchar(50)

as

Begin tran
insert into departamento values (@col1,@col2)

if @@Error<>0
Goto VerError


commit tran
return(0)
print 'Datos Grabados'

VerError:
Rollback tran
return(-1)
print 'No se pudo grabar el registro'

GO

CUANDO TUVO ÉXITO SE RETORNA EL VALOR 0 Y CUANDO HUBO UN ERROR RETORNA –1

LO Q QUIERO ES LA MODIFICACIÓN EN LA CREACIÓN DEL PARÁMETRO

Set param = cmd.CreateParameter("RETORNO", ?,? ,? ,? )
cmd.Parameters.Append param

PARA RECUPERAR ESE VALOR ASI MOSTRAR UN MENSAJE DE SI SE GRABO CORRECTAMENTE

DESPUÉS CUAL ES EL CODIGO PARA USAR PARÁMETRO

MSGBOX “MENSAJE” , param ¿???????????????????????? ES ASI

GRACIAS