VBA连接SQL SERVER问题

第一次用VBA连接远程SQL SERVER数据库，在网上找了一个连接远程数据库的代码，使用后出现错误，
在网上查找了半个下午，也没找到解决办法，希望寻求达人帮助。
因为想要在多个电脑里运行这个VBA程序，所以希望能不使用ODBC。
版本：Excel2007，SQL SERVER2005
属于内部局域网访问，我在本机通过SQL Server Management Studio Express可以正常连接SQL SERVER服务器。
错误信息，以及代码如下。

test1.rar (18.22 KB)

郁闷了一下午，原来是IP地址弄错了，对不起了各位！

[ 本帖最后由 cosmicdust 于 2011-6-23 17:33 编辑 ]

不好意思，原来是自己把IP地址弄错了，代码本身没有问题。
谢谢大家！