Поставщик данных .NET Framework для нескольких открытых подключений Oracle

У меня есть приведенный ниже код в отдельном файле класса для установления соединения и выполнения транзакций БД. У меня проблема, когда открывается несколько соединений, которые иногда превышают пул соединений. Когда я прошел через код, я обнаружил, что есть коды, которые вызывают ConnectDB() в цикле без вызова DisconnectDB(). Но я ожидал, что условие OraConn.State = ConnectionState.Closed должно справиться с ситуацией. Каким-то образом условие всегда выполняется, следовательно, открывается другой набор соединений. Можете ли вы подсказать, в чем я ошибаюсь, и какой передовой опыт можно здесь перенять?

Public Class Connection
Dim Str_conn As String = "Data Source=...; User=...; password=...; Min Pool Size=10; Max Pool Size=500;"
Public OraConn As OracleConnection
Dim cmd As OracleCommand
Dim dr As OracleDataReader
Dim data_adapt As OracleDataAdapter
Dim dt As DataTable
Dim ds As DataSet

Public Sub ConnectDB()
    OraConn = New OracleConnection(Str_conn)
    If OraConn.State = ConnectionState.Closed Then
        OraConn.Open()
    End If
End Sub

Public Sub DisconnectDB()
    If OraConn.State = ConnectionState.Open Then
        OraConn.Close()
    End If
End Sub

Public Function get_dataset(ByVal query As String, ByRef ds As DataSet) As DataSet
    data_adapt = New OracleDataAdapter(query, OraConn)
    data_adapt.Fill(ds)
    Return ds
End Function

Public Function get_datareader(ByVal query As String) As OracleDataReader
    cmd = New OracleCommand(query, OraConn)
    dr = cmd.ExecuteReader()
    Return dr
End Function

Public Sub UpdateDB(ByVal query As String)
    cmd = New OracleCommand(query, OraConn)
    cmd.ExecuteNonQuery()
    cmd.Dispose()
End Sub

На этот класс ссылаются в других классах или непосредственно на таких страницах aspx.vb.

Public Function InsertData(ByVal var1 As String, ByVal var2 As String) As Integer
    conn.ConnectDB()
    Dim qryInsert As String

    qryInsert = " INSERT INTO TABLE VALUES ('" & var1 & "', " 
    qryInsert = qryInsert & var2 & "')"        

    Try
       conn.UpdateDB(qryInsert) 
    Catch ex As OracleException
        If ex.Code = 1 Then
            updData(var1, var2)
       ElseIf ex.Code = 2091 Then
           msgprompt("Duplicate Unique Key!", "Warning")
       End If
    Finally
        conn.DisconnectDB()
    End Try
    Return count
End Function

Соединение снова открывается в функции updData(). Хотя я понимаю, что его нужно закрывать правильно, но следить за каждым разработчиком невозможно. Следовательно, я хочу управлять им непосредственно из класса соединения, используя то же соединение, но условие If OraConn.State = ConnectionState.Closed не помогает.

ОБНОВЛЕНИЕ

Я поместил код в UpdateDB в блок Using и удалил вызов ConnectDB и DisconnectDB из таких функций, как InsertData (...). Похоже, проблема решена. Но я хотел бы знать, в случае исключения, останется ли соединение открытым? а также OraConn - это общедоступная переменная, определенная вне блока Using, поэтому будет ли она удалена сборщиком мусора?

Public Sub UpdateDB(ByVal query As String)
    Using OraConn = New OracleConnection(Str_conn)
        cmd = New OracleCommand(query, OraConn)
        Try
            OraConn.Open()
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            Throw
        Finally
            cmd.Dispose()
        End Try
    End Using
End Sub