Por DIOS no puedo más!!!

TENGO EL SIGUIENTE PROCEDURE

CREATE PROCEDURE [dbo].[kakao] @salida nvarchar output AS

DECLARE @sql nvarchar(4000)
set @salida='OK'
SET @sql = 'kakao maravillao'
EXEC sp_executesql @sql

if @@ERROR<>0
begin
DECLARE @ERR VARCHAR(8000)
SELECT @ERR = TEXT FROM SYS.MESSAGES
set @salida=@ERR
end
GO

Y LO LLAMO DESDE VB6 ASÍ:

Private Sub Command1_Click()
Dim GsConnchain As String
Dim co As New ADODB.Connection
Dim com As New ADODB.Command
Dim pa As New ADODB.Parameter
GsConnchain = "Provider=SQLOLEDB.1;" & _
"Persist Security Info=False;" & _
"User Id=XX;Pwd=XX;Initial Catalog=XXXXXXXXXXXXX;" & _
"Data Source=xxx.xxx.xxx.xxx"
co.Open GsConnchain
com.ActiveConnection = co

com.CommandType = adCmdStoredProc
Set pa = com.CreateParameter("salida", adVarChar, adParamOutput, 4000)
com.Parameters.Append pa
com.CommandText = "kakao"
com.Execute
End Sub

POR QUE DEMONIOS ME DEVUELVE ERROR -2147217900 SE SUPERÓ EL NIVEL MÁXIMO
DE
ANIDAMIENTO EN VISTAS, FUNCIONES O DESENCADENADORES?(LIMITE:32)??

juro que estoy bastante hasta arriba de esto YA!!!!!