Failure Enlisting in Resource manager

I'm recieving this from from MTS when I try to call a BatchUpdate on ADO recordset.

I'll discribe by component hierarchy as
UI layer -> Biz Layer -> data Layer

The recordset is being passed from UI -> Biz -> data where the updatebatch is called. This is the code which cause my error

function UPdate(RecSet as ADODB.recordset)

RecSet.ActiveConnection = CONNSTRING
RecSet.UpdateBatch
RecSet.Close
objMTSContext.SetComplete

end function


The problem happens when a function Update() which contains the above code is called from a loop in the BIz layer.The first call in the loop passes through but the second call (always) fails.

NT service pack is installed and the Componets are in NT server
I'm accessing the components from a NT Client where only the UI resides.

Can anyone help me out ?


Failure Enlisting in Resource manager