SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO


CREATE PROCEDURE TESTERROR

AS
RAISERROR ('Error', 16, 1)

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

Sub teste()
On Error GoTo errH
Call gConnection.Execute("exec TESTERROR")
Exit Sub
errH:
select case err.description
case"Error"
end select
End Sub