Visual Basic.NET - VB .NET me saturan el servidor Oracle

Saludos, necesito que me ayuden en algo. Tengo una aplicacion en .NET el cual, cuando inicia, el servidor ORACLE pierde memoria a tal punto que llega a desconectarse. Quisiera saber a q se debe.
Esta es la manera como me conecto:

Sub Conecta()
Try
Cnn = New OracleConnection("Persist Security Info=False;User ID=usuario;Password=miclave;Data Source=basedatos")
Cnn.Open()
Catch ex As Exception
MsgBox("No es posible conectarse a la BD", MsgBoxStyle.Critical, "Desconectado")
End Try
End Sub

'DEVOLVER UN DATAREADER

Public Function ConsultaSQL(ByVal sConsulta As String) As OracleDataReader
cmd = New OracleCommand(sConsulta, Cnn)
cmd.CommandType = System.Data.CommandType.Text
drTramite = cmdTramite.ExecuteReader()
Try
dr.Read()
Catch
MsgBox("Error en consulta", MsgBoxStyle.Critical, "Problemas en consulta")
End Try
Return dr
End Function

'EJECUTAR UNA SENTENCIA DE ACCION SQL

Public Sub EjecutaSQL(ByVal sSentencia As String)
cmdSentencia = New OracleCommand(sSentencia, Cnn)
cmdSentencia.ExecuteNonQuery()
End Sub

Gracias