VB引用ADO提示自动化错误

[nicho123456]

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As String
rs = "PROVIDER=SQLOLEDB.1;data source=XX;user id=sa;password=XXX;initial catalog=XXXX;Connect Timeout=30;Persist Security Info=True ;Current Language=Simplified Chinese;"
cn.Open rs
End Sub
请问是什么原因啊？？？

[chinaboyzyq]

自动化错误（错误 440）


当访问 Automation 对象时，发生了特定类型的错误。此错误有以下原因和解决方法：

当执行某个方法时，或是得到或设置对象变量的属性时，发生了此错误。创建此对象的应用程序会报告此错误。
检查 Err 对象的属性以决定错误的来源和性质。同样地，也可以在访问语句前，直接使用 On Error Resume Next 语句，然后在访问语句后检查错误。

详细信息，可选取有问题的项目，并按下 F1 键。

[cqq_chen]

ado没有安装好！