VBA通过ADO连接SQL数据库，但是提示“无法链接到SQL数据库 错误编码 [67]”，问题在哪里呢？

Sub 尝试VBA连接SQL()
excel是2010
sql 是 2008r2
代码如下

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Dim constr As String
Dim sqlstr As String

constr = "provider=sqlncli10.1;persist security info=false;initial catalog=yearsallshow;user id=sa;pwd=psw;data source=服务器名"

cnn.Open constr

sqlstr = "select * from total_pytj"
rs.Open sqlstr, cnn
Sheet2.Range("a1").CopyFromRecordset rs
rs.Close
cnn.Close

End Sub

问题到底出在哪里呢？？

67表示主机地址错误，你下面语句中的【服务器名】要修改服务器的机器名、域名或者IP地址。

constr = "provider=sqlncli10.1;persist security info=false;initial catalog=yearsallshow;user id=sa;pwd=psw;data source=服务器名"

所有错误代码的含义见连接网页：网页链接

我后来改完了，可是又提示错误代码[2]
nitial catalog= 是写实例名，还是我后来create database自己建的数据库的名字呢？