[Resolvido] Grande problema com conexao que nao fecha

To usando WebForms e VB.net junto com o Mysql 5

A minha funcao de conexao eh a seguinte:

Public Sub New()
strConecta = System.Web.Configuration.WebConfigurationManager.ConnectionStrings("cnIITA").ConnectionString
End Sub

Public Sub AbreCn(ByVal Abrir As Boolean) As MySqlConnection
AbreCn = New MySqlConnection
Try
If Abrir = True Then
If AbreCn.State = Data.ConnectionState.Closed Then
AbreCn.ConnectionString = strConecta
AbreCn.Open()
Else
Exit Function
End If
ElseIf Abrir = False Then
AbreCn.Close()
AbreCn.Dispose()
AbreCn = Nothing
End If
Catch ex As Exception
Exit Function
End Try

End Sub
E na minha pagina eu faco o seguinte:

Imports MySql.Data.MySqlClient

Dim Conecta As New Conexao

'Dentro de uma Funcao na pagina

Dim Cm As New MySqlCommand
Cm = New MySqlCommand
Cm.Connection = Conecta.AbreCn(True)

Sql = "Insert Into tbl_resp(sessionID,pergunta,resposta) Values(" & Criterio

Cm.CommandText = Sql
Cm.ExecuteNonQuery()

Conecta.AbreCn(False)
Cm.Dispose()
Acontece que quando eu rodo o administrado do Mysql ele me mostra as conexoes todas penduradas lah. O codigo nao esta fechando elas. Onde esta o erro???

Ja to loco com isso pois o servidor ja ficou fora do ar varias vezes indicando Varias conexoes abertas ao mesmo tempo e o Mysql derruba a conexao.

Desde ja grato a todos.