CREATE PROCEDURE test AS
declare @ret int
exec @ret=findDog 'сафин','',1
if @ret<> 0 
begin
	raiserror('Сервер ',16,1)
	return @ret
end
else
	raiserror('Сервер недоступен',16,1)
return @ret
GO

Public Sub test()
 Dim cnCom As New ADODB.Command
 Set cnCom.ActiveConnection = cn
 cnCom.CommandText = "test"
 cnCom.CommandType = adCmdStoredProc
 
 Set param0 = cnCom.CreateParameter("return", adInteger, adParamReturnValue)
 cnCom.Parameters.Append param0
  
 On Error GoTo ErrL
 cnCom.Execute
 Info (cnCom( 0 ).Value)
 On Error GoTo  0 
 Set cnCom = Nothing
 Exit Sub
ErrL:
   For i =  0  To cn.Errors.Count -  1 
    Info (cn.Errors(i).Description)
   Next i
   Set cnCom = Nothing
End Sub