SQL Sevver 2000 连接有关问题

SQL Sevver 2000 连接问题
Public Function ConnectString() As String
  ConnectString = "Driver={SQL Server};Server=HR01\sa;Database=REPORT;Uid=SA;Pwd=;;"
End Function

这样连接没有问题,我的是在局域网中,IP地址是:172.26.151.36,现在想将它改为局域网共用,多用户使用,该怎么设置SQL Sevver 2000和写连接代码?我的SQL已设置为混合模式,谢谢

用下面的代码不行:
Public Function ConnectString() As String
  ConnectString = "Driver={SQL Server};Server=172.26.151.36;Database=REPORT;Uid=SA;Pwd=;;"
End Function

------解决方案--------------------

"Provider = SQLOLEDB.1;Persist Security Info = False;" & _
"User ID = sa; Password =; Data Source = 172.26.151.36;Initial Catalog = REPORT"
------解决方案--------------------
可以用data控件生成连接字符串
------解决方案--------------------
1，如果SQL所在机器操作系统为XP，则需要安装SQL2000SP4
2，关闭SQL机器防火墙，包括windows自带的防火墙
------解决方案--------------------
打SQL2000的SP4补丁。
为SQL服务器开放1433端口，它是sql2000的默认端口。

用ADODC或ADODB连接
修改SQL的ODBC连接串为SQLOLEDB连接串