ADO创建连接对象失败

Question

Private Sub Command1_Click()
    Dim o As ADODB.Connection
    Set o = New ADODB.Connection
End Sub返回 Run-time error '429'
ActiveX component can't create object说明：
我已经在VB6工程里引用了ADO组件
我的系统是Win XP。后来我重装了MDAC(ADO的安装包)，甚至重装了SQL Server，
都还是不行。以前也遇到过类似问题，是通过重装系统来解决的。
大家有没有遇到过类似问题，是怎样解决的？

Answer 1

安装mdac2.8mdactyp.exe，并在VB中引用ADO试试

Answer 2

安装mdac2.8mdactyp.exe，并在VB中引用ADO试试
=============因为系统是XP，SP2里已经自带了。
安装MDAC2.8时提示已经安装了。

Answer 3

http://support.microsoft.com/kb/319841/zh-cn

Answer 4

Public cnnOraADO As New ADODB.Connection
Public recOraADO As New ADODB.Recordset
Public delOraADO As New ADODB.ConnectionPublic Sub CSUB_DB_LogOn()
    Dim szConn As String    On Error GoTo DB_LogOn_Err
    
    ＇＇数据库连接
    szConn = ""
    szConn = "Provider=" + P_szProvider
    szConn = szConn + ";Persist Security Info=" + P_szSecurityInfo
    szConn = szConn + ";User ID=" + P_szUserID
    szConn = szConn + ";Password=" + P_szPassWord
    szConn = szConn + ";Initial Catalog=" + P_szInitialCatalog
    szConn = szConn + ";Data Source=" + P_szServer
    
    With cnnOraADO
        .ConnectionString = szConn
        .Open
    End With
    
DB_LogOn_Err:
    End
End Sub

Answer 5

解决了，重装ADO2.8就可以了
如果XP下不能重装，可参考
http://www.macropool.com/en/download/mdac_xp_sp2.html