急急急~~~测试时出现：实时错误-2147467259 (80004005)

Set cnn = New ADODB.Connection
    cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=IndustryDB;Data Source=Localhost"
    cnn.Open
    Set rs = New ADODB.Recordset
红色的错误 ，有谁知道是什么问题吗？在线等回复。