Visual Basic - Pierde Conexion con Oracle

Error es -2147467259(800040005) en tiempo de ejecución:
Ora-03135 la conexión ha perdido contacto.

Estoy transfiriendo datos de Oracle 8i y 10G por Visual Basic. ambas conexiones abiertas

Porfis, que de esto depende mi trabajo.....

CONEXION 8i
Function blnConectar8i(StringDeConexion As String) As Boolean
On Error GoTo errConectar

Set cnConexion8i = New ADODB.Connection
cnConexion8i.Open StringDeConexion 'abro la conexion
blnConectar8i = True
Exit Function

errConectar:
blnConectar8i = False
End Function

CONEXION 10G
Function blnConectar10g(StringDeConexion As String) As Boolean
On Error GoTo errConectar

Set cnConexion10G = New ADODB.Connection
cnConexion10G.Open StringDeConexion 'abro la conexion


blnConectar10g = True
Exit Function

errConectar:
blnConectar10g = False
End Function