连接还没打开，怎么会有状态值呢？

Private Function OpenConnection_Oracle()

   Dim strSQL

   Dim MyConn_Oracle

   On Error Resume Next

   OpenConnection_Oracle = False

   strSQL = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=12345;PassWord=12345;Data Source=orcl10g"

   Set MyConn_Oracle = CreateObject("ADODB.Connection")

   With MyConn_Oracle

      .CursorLocation = 3

      .ConnectionString = strSQL

      .Open

   End With

   OpenConnection_Oracle = True

End Function