VB引用ADO提示自动化错误

Question

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
请问是什么原因啊？？？

Answer 1

自动化错误（错误 440）
   当访问 Automation 对象时，发生了特定类型的错误。此错误有以下原因和解决方法： 当执行某个方法时，或是得到或设置对象变量的属性时，发生了此错误。创建此对象的应用程序会报告此错误。 
检查 Err 对象的属性以决定错误的来源和性质。同样地，也可以在访问语句前，直接使用 On Error Resume Next 语句，然后在访问语句后检查错误。详细信息，可选取有问题的项目，并按下 F1 键。