Help, single COM+ transaction only supports 8 open connections before failing in Oracle

I am having a problem creating more then 8 connections to an oracle database from within a single class that requires a new transaction. I do not have the problem with SQL Server. I have tried both ODBC and OLE DB providers.

The reason for these connections is a bit complicated and I am working to make the application reuse existing connections within the transaction.

I have tried increasing the following parameters in Oracle, to no avail:

distributed_transactions
session_max_open_files
transaction_per_rollback_segment

I have increased the QUEUESIZE in Listener.ora (didn't fix it)

All connections work until the 9th then if fails. If I am using the oledb provider it says "method 'open' of object '_connection' fails.

If I use ODBC I get "'8004d00a' failure enlisting in Resource manager"

Here is my code, of the test project... It is inside an activeX object that requires a new transaction. If I change it to no transactions then everything works...

Public Sub Testme()

    Dim conStr As String     

    conStr = "Driver={Microsoft ODBC Driver for Oracle};" & _

"ConnectString=vmtest817;" & _
"Uid=userj;" & _
"Pwd=passj"

    'conStr = "Provider=msdaora;Data Source=vmtest817;User Id=userj;Password=passj"

    'conStr = "Provider=sqloledb;Sever=test;Database=test;User Id=sa;Password="

    Dim a As New ADODB.Connection
    a.ConnectionString = conStr
    a.Open     

    Dim b As New ADODB.Connection
    b.ConnectionString = conStr
    b.Open     

    Dim c As New ADODB.Connection
    c.ConnectionString = conStr
    c.Open     

    Dim d As New ADODB.Connection
    d.ConnectionString = conStr
    d.Open     

    Dim e As New ADODB.Connection
    e.ConnectionString = conStr
    e.Open     

    Dim f As New ADODB.Connection
    f.ConnectionString = conStr
    f.Open     

    Dim g As New ADODB.Connection
    g.ConnectionString = conStr
    g.Open     

    Dim h As New ADODB.Connection
    h.ConnectionString = conStr
    h.Open     

    Dim i As New ADODB.Connection
    i.ConnectionString = conStr
    i.Open     

End Sub Received on Sat Jul 27 2002 - 00:20:11 CEST