DECLARE @Error  INT
DECLARE @ErrorMsg VARCHAR(255)
DECLARE @oSQLServer INTEGER
DECLARE @Source  VARCHAR(255)
DECLARE @Return  INTEGER
declare @dynsql nvarchar(3000)
declare @oDatabase int
declare @oQueryResults int
declare @Length int
declare @CurrentDB varchar(255)
declare @SQL varchar(8000)

-- Create the SQLServer object
EXEC @Error = sp_OACreate 'SQLDMO.SQLServer', @oSQLServer OUT
 
-- Set the login process to use NT Authentication
EXEC @Error = sp_OASetProperty @oSQLServer, 'LoginSecure', -1

-- Connect to server using NT Authentication
EXEC @Error = sp_OAMethod @oSQLServer, 'Connect', NULL,  @@SERVERNAME

-- Verify the connection
EXEC @Error = sp_OAMethod @oSQLServer, 'VerifyConnection', @Return OUTPUT

-- Create Function with server object
select @dynsql = N'CREATE Function MFF_Imp_DummyLockConnectionTest () RETURNS INT AS BEGIN RETURN ' + cast(@oSQLServer as varchar) + N' END'
EXEC sp_executesql @dynsql

-- Set the database object to be the current database
SELECT @CurrentDB = DB_NAME()
SELECT @CurrentDB = 'Databases("' + RTRIM(@CurrentDB) + '")'
EXEC @Error = sp_OAGetProperty @oSQLServer, @CurrentDB, @oDatabase OUT
 
--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-- Build the SQL string
SET @SQL = (Some statements that will result in some rowlocks after opening a transaction)'
--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

-- Execute the SQL 
SET @Length = LEN(@SQL)
SET @ErrorMsg = '' -- Must initialize the @ErrorMsg string
EXEC @Error = sp_OAMethod @oDatabase,  'ExecuteWithResultsAndMessages', @oQueryResults OUTPUT, @Length = @Length, @Command = @SQL , @Messages = @ErrorMsg OUTPUT

EXEC @Error = sp_OADestroy @oDatabase
EXEC @Error = sp_OADestroy @oQueryResults

begin tran

Some real work here. If this code works the locks are cleared 
afterwards as the cleanup part executes. If the procedure crashes 
here the locks still are there...

commit tran

-- Get the connection object
Select @oSQLServer = dbo.MFF_Imp_DummyLockConnectionTest()

-- Set the database object to be the current database
SELECT @CurrentDB = DB_NAME()
SELECT @CurrentDB = 'Databases("' + RTRIM(@CurrentDB) + '")'
EXEC @Error = sp_OAGetProperty @oSQLServer, @CurrentDB, @oDatabase OUT
 
--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-- Build the SQL string
SET @SQL = 'Commit Transaction '
--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

-- Execute the SQL (this will NOT be rolled back)
-- We could use ExecuteImmediate here, but it doesn't return a result
--  and we found while debugging that you really NEED that
SET @Length = LEN(@SQL)
SET @ErrorMsg = '' -- Must initialize the @ErrorMsg string
EXEC @Error = sp_OAMethod @oDatabase,  'ExecuteWithResultsAndMessages', @oQueryResults OUTPUT, @Length = @Length, @Command = @SQL , @Messages = @ErrorMsg OUTPUT

EXEC @Error = sp_OADestroy @oDatabase
EXEC @Error = sp_OADestroy @oQueryResults

if exists (select * from sysobjects where id = object_id(N'dbo.MFF_Imp_DummyLockConnectionTest') and OBJECTPROPERTY(id, N'IsScalarFunction') = 1)
drop function dbo.MFF_Imp_DummyLockConnectionTest