ADO创建连接对象失败解决思路

ADO创建连接对象失败
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，
都还是不行。

以前也遇到过类似问题，是通过重装系统来解决的。
大家有没有遇到过类似问题，是怎样解决的？

[解决办法]
安装mdac2.8mdactyp.exe，并在VB中引用ADO试试
[解决办法]
http://support.microsoft.com/kb/319841/zh-cn
[解决办法]
Public cnnOraADO As New ADODB.Connection
Public recOraADO As New ADODB.Recordset
Public delOraADO As New ADODB.Connection

Public 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