ADO中连接ORACLE数据库的连接串是否为“DSN=A；UID=A；PWD=B”我这样连接发生错误！

Question

Dim CON
Dim RSPrivate Sub Form_Load()
Set CON = CreateObject("adodb.connection")
CON.Open "UID=CDITS;PWD=CDITS;driver={Microsoft ODBC for Oracle};SERVER=CDITS;"
Dim mysql As String
mysql = "select distinct(vid) from HTELEFEEINFORMATION where driverid=0 "
CON.Execute mysql
Set RS = CON.Execute(mysql)
Do While Not RS.EOF
Text1.Text = Text1.Text & RS("vid") & Chr(13) & Chr(10)
RS.MoveNext
LoopEnd Sub

Answer 1

方法：    Private m_DBConnection As ADODB.Connection        Set m_DBConnection = New ADODB.Connection
        m_DBConnection.ConnectionString = _
            "DSN=" & dsn & _
            ";UID=" & user_name & _
            ";PWD=" & password
        m_DBConnection.Open例：
    DSN=oracle_database;UID=rod;PWD=testpassword