FIX: OLE Automation Fails When Calling ADODB.Connection Methods (295046)

MORE INFORMATION

Steps to Reproduce Behavior

1. Run the following Transact-SQL statements in Query Analyzer:

   if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[ln_log_error]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
   drop procedure [dbo].[ln_log_error]
   GO
   SET QUOTED_IDENTIFIER ON 
   GO
   SET ANSI_NULLS ON 
   GO
   CREATE PROCEDURE ln_log_error
   AS
   DECLARE   @iConnObjId   INT,
             @iRSTObjId	INT,
             @iRetCode	INT,
             @sErrSource   VARCHAR(2550),
             @sErrDesc     VARCHAR(2550),
   	  @sConnString	VARCHAR(1000),
             @returnVal    INT
   -- Initialize variables.
     SET @sConnString = 'Data Source='+@@SERVERNAME+'; Provider=SQLOLEDB; Initial Catalog= pubs; Integrated Security=SSPI'
     select @sConnString
   -- Create the connection and open it.
         EXEC @iRetCode = sp_OACreate 'ADODB.Connection',@iConnObjId OUTPUT
         IF @iRetCode <> 0
         BEGIN
             EXEC sp_OAGetErrorInfo @iConnObjId, @sErrSource OUTPUT, @sErrDesc OUTPUT
             SELECT 'Connection Create Error: ', @sErrSource,@sErrDesc
         END  
         EXEC @iRetCode = sp_OAMethod @iConnObjId,'Open',NULL,@sConnString,'sa',''
         IF @iRetCode <> 0
         BEGIN
             EXEC sp_OAGetErrorInfo @iConnObjId, @sErrSource OUTPUT, @sErrDesc OUTPUT
             SELECT 'Connection Open Error: ', @sErrSource,@sErrDesc
         END
   -- Create a blank record for the error log table.
         EXEC @iRetCode = sp_OACreate 'ADODB.RecordSet',@iRSTObjId OUTPUT
         IF @iRetCode <> 0
         BEGIN
             EXEC sp_OAGetErrorInfo @iConnObjId, @sErrSource OUTPUT, @sErrDesc OUTPUT
             SELECT 'RecordSet Create Error: ', @sErrSource,@sErrDesc
         END  
   -- Open the recordset.
             EXEC @iRetCode = sp_OAMethod @iRSTObjId,'Open',NULL,'error_log',@iConnObjId,2,3,2            
             select @iRetCode
         IF @iRetCode <> 0
         BEGIN
             EXEC sp_OAGetErrorInfo @iConnObjId, @sErrSource OUTPUT, @sErrDesc OUTPUT
             SELECT 'RecordSet Open Error: ',@sErrSource,@sErrDesc
         END  
   -- Clean up.
         EXEC @iRetCode = sp_OADestroy @iRstObjId
         EXEC @iRetCode = sp_OADestroy @iConnObjId
   GO
   SET QUOTED_IDENTIFIER OFF 
   GO
   SET ANSI_NULLS ON 
   GO
   					

2. Execute ln_log_error from Query Analyzer.