vb连接oracle的问题

Question

采用Microsoft OLE DB Provider for Oracle 驱动连接,代码如下
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
With cn
    .ConnectionString = "Provider=MSDAORA.1;Password=Admin999;User ID=Admin;Data      
     Source=open2000;Persist Security Info=True"
    .Open
End With
End Sub
在调试状态下运行没问题,编译成可执行文件运行时出错信息:
Run-time error '-2147467259 (80004005)':
发生了一个Oracle错误,但无法从Oracle中检索错误信息.
实在找不到原因,大虾救命

Answer 1

Standard security:"Provider=msdaora;Data Source=MyOracleDB;User Id=UserName;Password=asdasd;" 
This one's from Microsoft, the following are from Oracle
 Standard Security:"Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;User Id=Username;Password=asdasd;"  Trusted Connection:"Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;OSAuthent=1;" //看你的连接字符是没有错的，确认下你的数据库是否连接正确，然后设置超时间为0
或者看是哪个地方出错，关闭时还是打开时候？

Answer 2

先用ado控件连接一次，然后把connectstring拷出来，再用ado对象连接，这样一般不会出错了

Answer 3

你用的是ORACLE什么版本了，试试下面的连接方式可以吗
        With DB
            .ConnectionString = "Provider=OraOledb.Oracle.1;" & _
            "password=" & OraPw & ";" & _
            "User ID =" & OraUs & ";" & _
            "Data Source=" & OraSid & ";" & _
            "Locale Identifier=2052"
            .Open
        End With

Answer 4

會不會是游標的問題,加上CursorLocation = adUseClient試試