VB6 deixando Sessions inativas no ORACLE10g

Opa !!

Estou com um problema e preciso de qualquer ajuda possivel...

Trabalho com uma aplicação em VB6 que esta deixando conexões inativas no banco oracle10g.
Esta conexão e realizada através do drive do oracle OO40 :

   Set gOraSession = CreateObject("OracleInProcServer.XOraSession")

    Set gOraDataBase = gOraSession.OpenDatabase(dataSource, Usuario & "/" & Senha, 1&)

Para fechar :
    If Not gOraDataBase Is Nothing Then

       For i = 1 To 5
        gOraDataBase.Close

        MsgWait 1
        Next

        Set gOraDataBase = Nothing

    End If

    If Not gOraSession Is Nothing Then
        Set gOraSession = Nothing
    End If

Porem ele nao esta fechando a conexões, deixando sessoes inativas.
Ja tentei atualizar o drive, alterar parametros de conexões para nao deixar inativas, porem qdo é alterado o mesmo nao grava as informaçóes no banco.

alguem pode me dar uma luz do que possa ser isso, ou se existe alguma forma de identificar as conexoes pelo VB e fechar todas ??
Desde ja, agradeço a ajuda!