SQL Server OLEDB - Error

Hi,

I am using WIN XP, SQL Server 2000 database and vb, asp application running on MTS. I have a transaction where it will process 500 items and write to the tables in database. When opening the connection I tried to cache the connection and made use of it when ever the code is called. Here is how I did it.

Public Function GetCachedADOConn(ByVal eConnect As DBConnectVar, Optional ByVal blnUseShapeRS As Boolean = False) _
As ADODB.Connection

Dim cnnADO As ADODB.Connection

On Error GoTo EH

If m_CachedConnection Is Nothing Then
Set cnnADO = New ADODB.Connection
' Check if we need to load the cache first...
If Len(mstrConnect(eConnect - 1)) = 0 Then Call CacheOneConnectionSet(eConnect)

' Now just return the cached data
With cnnADO
If blnUseShapeRS Then
.ConnectionString = "Provider=MSDataShape;Data " & mstrConnect(eConnect - 1)
Else
.ConnectionString = mstrConnect(eConnect - 1)
End If

.CommandTimeout = mintCommandTimeout(eConnect - 1)

.ConnectionTimeout = mintConnectTimeout(eConnect - 1)

.CursorLocation = adUseClient

.Open
End With
Set m_CachedConnection = cnnADO
End If

Set GetCachedADOConn = m_CachedConnection
'Set cnnADO = Nothing
Exit Function


Here the main part is making use of m_CachedConnection as a public variable declared as adodb.connection.


When I run the application it throws me an error

Unable to establish connection(Micorsoft OLEDB Provider for SQL Server , New transaction cannot enlist in the specified transaction coordinator.)

Can some one help me How I can address the above issue.

Thank you,

Nagesh.