vb 和sql server 2000　开发Ｃ／Ｓ结构，如何在客户端连接服务器端数据库

最近帮朋友做一个进销存的管理软件，用VB 和SQL SERVER2000开发，使用ADO方法，我装的ＸＰ系统
装的是开发版的SQL SERVER 2000，使用WINDOWS 和SQL SERVER 2000模式登陆，用户名"sa "密码"."
在本地机器上测试，没有问题，在同寝室电脑，调试客户端程序，怎么连接都连接不上我电脑中SQL SERVER服务器，
提示说是没有服务器，或是没有权限，各位大虾帮帮我，详细告诉我是数据库的问题还是需要别的一些东西我连接的代码如下user_pwd = "."
user_name = "sa"
data_name = "like_data_temp1"　　　　　　　'数据库名
server_name = "haohaoking"　　　　　　　　 'SQL SERVER 服务器名publicStr = "Provider=SQLOLEDB.1;Password=" & user_pwd & ";Persist Security Info=True;User ID=" & user_name & ";Initial Catalog=" & data_name & ";Data Source=" &server_namecnn.Open publicStr