Non capisco proprio dove diavolo la vede aperta:

Public DbObject As New DbObject
Public ConnectionString As String = DbObject.ConnectionString()
Dim Conn As New OleDbConnection(ConnectionString)
Public Function LinguaMax() As Boolean
Dim sql As String = "Select LingueMax, Lingue From T_Config"
Dim Cmd As New OleDbCommand(sql, Conn)
Dim dr As OleDbDataReader

Conn.Open()
dr = Cmd.ExecuteReader
dr.Read()
If dr("LingueMax") - dr("Lingue") = 0 Then
Return True
Else
Return False
End If
dr.Close()
Conn.Close()
End Function
... e poi nel codebehind della pagina:
Dim bool As Boolean = Language.ControlLingue()
If bool = True Then
....
End If
non apro nessuna connessione
ho altre funzioni che, scusa il gioco di parole, funzionano!
non so perchè qui si ferma....