ADODB.OPEN 无法响应

  有个程序,5分钟运行一次,但是时常程序一直等待,无法释放,最后程序写LOG,发现在ADODB.OPEN的时候没有任何的相应,程序无响应.不知道有没有高手知道这种情况如何解决.

        m_objCn = New ADODB.Connection
        com_OpeLogOutput("mtdOpen", GC_LOGSTATUS_IN, "Set m_objCn = New ADODB.Connection", "")
        Dim intState As Integer
        intState = ADODB.ObjectStateEnum.adStateClosed

        com_OpeLogOutput("mtdOpen", GC_LOGSTATUS_IN, "Connect State is " & intState.ToString(), "")

        If m_objCn.State = ADODB.ObjectStateEnum.adStateClosed Then
            With m_objCn
                com_OpeLogOutput("mtdOpen", GC_LOGSTATUS_IN, "Start Connect", "")
                .CommandTimeout = m_lngCommandTimeout
                com_OpeLogOutput("mtdOpen", GC_LOGSTATUS_IN, "CommandTimeout = " & CStr(m_lngCommandTimeout), "")
                .Open(strConnectString)
                com_OpeLogOutput("mtdOpen", GC_LOGSTATUS_IN, "DB Connect Success", "")

            End With
            mtdOpen = True
            com_OpeLogOutput("mtdOpen", GC_LOGSTATUS_IN, "mtdOpen  end ", "")
        End If
--------------------编程问答-------------------- 帮顶 --------------------编程问答-------------------- 路过。 --------------------编程问答-------------------- 忘了说了,数据库是ORACLE 9,希望能有高手解答. --------------------编程问答-------------------- 等待高手

补充：.NET技术 ,  VB.NET