Question

vb6.0连接数据库的问题

我的电脑（IP：10.1.155.46）安装了SQL Server 2000和VB6.0企业版。
其中SQL Server 2000使用默认数据库master，其中有名为sysusers的数据表。
使用vb6.0编写如下代码，并在“工程”－“引用”中添加“Microsoft ActiveX Data Objects 2.6 Library"

Private Sub Command1_Click()
With conn
If .State = adStateOpen Then .Close
.ConnectionString = "Driver={SQL Server};Server=10.1.155.46;Database=master;Uid=sa;Pwd=sa"
.CommandTimeout = 60
.Open
End With
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from sysusers", conn, adOpenKeyset, adLockReadOnly
If rs.State = adStateOpen Then
MsgBox "连接成功！"
End If
End Sub
（关闭数据库代码省略）
该代码可以在我的电脑上运行，加入查询代码还可以进行查询。
但是移到别人到机子上就不行了。
如何修改上边的代码才可以使其在别人的电脑上也能连接到我电脑上到SQL Server数据库，比如我同事到电脑（IP：10.1.155.92）。
谢谢！！
提示错误为：
实时错误'-2147467259(80004005';
[DBNETLIB][ConnectionOpen(Connect()).]SQL Server不存在或拒绝访问。

(不知道是代码的问题还是设置的问题。 而且有的资料上也是这么讲的啊！)

Answer 1

涉及到分布式编程的东西，我也不是特别清楚。