>OK, but that doesn't really matter ... you have to be sure you've closed your connection and I have a feeling that you didn't do that.

Here is the SQLExec() method again. Is there something I need to adjust in there?

        ' SQL exec
        ' expC1 SQL command
        ' expO1 Connection
        Public Function SQLExec(ByVal tcSQL As String, ByVal tcConnection As String) As Boolean

            ' If the applicatioan object has not been created
            If oApp Is Nothing Then
                Throw New System.Exception("The application object has not been passed to the data object.")
            End If

            ' If no connection string
            If tcConnection.Length = 0 Then
                oApp.cError = "Framework.Data.SQLExec() The connection string is empty. " + tcSQL
                Return False
            End If

            InitializeDataObject(oApp.nSQLMode, tcConnection, tcSQL)
            Dim llSuccess As Boolean
            llSuccess = False
            Try
                oCommand.Connection = oConnection
                oCommand.CommandText = tcSQL

                ' Only add the parameters if we have some
                If Not oParameters2 Is Nothing Then
                    For Each oDataParameter In oParameters2
                        oCommand.Parameters.Add(oDataParameter)
                    Next
                End If

                oDataAdapter.SelectCommand = oCommand
                oDataSet = New DataSet

                ' By default, .NET does not add the specific field length, which is needed in XML as at the other end
                ' someone would always get memo field instead of character field
                oDataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey

                oDataAdapter.Fill(oDataSet)

                ' Adjust to our default name
                oDataSet.Tables("Table").TableName = "Temp"

                ' Record count
                nCount = oDataSet.Tables("Temp").Rows.Count

                ' If we have at least one record
                If nCount > 0 Then
                    oDataView = New DataView
                    oDataView = oDataSet.Tables("Temp").DefaultView
                End If

                llSuccess = True
            Catch loError As Exception
                oApp.cError = oApp.ErrorSetup(loError, oApp.Debug(cSQL))
            End Try
            Return llSuccess
        End Function