>I'm not sure that solution is going to work.
>Previously you were probably trying to make use of a connection that was still busy.
>Now you might be trying to close a connection that's still busy - which is just as bad...
>
>Bear in mind that there's very little extra overhead in creating a *new* connection providing that the connection string matches an existing pooled connection - testing as above showed that 10,000 'new' connections, by comparison, took 950 ms instead of 450.

You're right. Here is an updated version which takes care of that, but for SQLConnection only as I didn't experience that with OleDB provider as well as ODBC.

            ' If the connection is already opened
            If lConnectionIsAlreadyOpened Then

                ' The following lines have been updated to support a SQL Server issue with the use of the SQLDataReader
                ' related objects to bug once in every hundreds of thousands of SQL requests. When that happens, this
                ' creates a message like "There is already an open DataReader associated with this Command which must be closed first."

                ' Get the proper definition as per the current scope
                If oProcess Is Nothing Then

                    ' Different backends handle it differently
                    Select Case nSQLMode

                        ' OleDb
                        Case 1
                            oCommand.Connection = oApp.aConnection(nConnectionString, 2)

                            ' SQLClient
                        Case 2
                            oCommand.Connection = New SqlConnection(oApp.aConnection(nConnectionString, 1))
                            oCommand.Connection.Open()

                            ' ODBC
                        Case 3
                            oCommand.Connection = oApp.aConnection(nConnectionString, 2)

                    End Select

                Else

                    ' Different backends handle it differently
                    Select Case nSQLMode

                        ' OleDb
                        Case 1
                            oCommand.Connection = oProcess.aConnection(nConnectionString, 2)

                            ' SQLClient
                        Case 2
                            oCommand.Connection = New SqlConnection(oProcess.aConnection(nConnectionString, 1))
                            oCommand.Connection.Open()

                            ' ODBC
                        Case 3
                            oCommand.Connection = oProcess.aConnection(nConnectionString, 2)

                    End Select

                End If