ORACLE 8i Y ADO DE VB6 ¡AYUDA!

INFORMER
25 de Marzo del 2004
Hola disculpen que los molesten pero la verdad estoy en un dilema: tengo una aplicacion que usa el objeto ado para realizar las operaciones de registro,eliminacion, etc. el cual lo conecto a una BD de Oracle pero cuando realiza un update, queda abierta la sesion asi cierre el objeto ADO, y como sabran hay un limite de sesiones y al llegar ese limite me manda error 20 de oracle (numero de sesiones ha excedido, usualmente de 150), lo que sucede es que en un boton de "Guardar", manipulo hasta 17 tablas para que guardar y me abre el mismo numero de sesiones que puedo hacer les mando el codigo en VB6 para que lo chequen ayuda de favor:

FrmGenerales.AdoSistloc.RecordSource = "Select * from TMotoTuberiaSuc where Id_Motobomba =" & Contador & ""
FrmGenerales.AdoSistloc.Refresh

With FrmGenerales.AdoSistloc.Recordset
If .EOF Then
.AddNew
!Id_Motobomba = Contador

.Update

End If

End With

FrmGenerales.AdoSistloc.Recordset.Close


FrmGenerales.AdoSistloc.RecordSource = "Select * from TMotoValvulaSuc where Id_Motobomba =" & Contador & ""
FrmGenerales.AdoSistloc.Refresh


With FrmGenerales.AdoSistloc.Recordset
If .EOF Then
.AddNew
!Id_Motobomba = Contador

.Update

End If

End With
.
.
.
Y asi lo hago para guardar hasta 17 tablas.