VB6连接远程数据库SQL2000

分析了一下你的问题，有几点问题你需要排查：

1、既然是动态域名，那么你的数据库服务器应该面对的是公网。如果是公网，局域网IP连接是否成功就毫无意义。

2、你有否尝试过使用公网IP连接，如果使用公网IP连接成功，那就有可能是域名解析的问题。

3、你是否设置好了路由器的端口映射，分析你的题目，我估计你网络状态可能是多层路由，那么多层路由的端口映射是否都设置好了？还是只设置了一层？

4、如果设置好了端口映射，是不是还有端口号的问题，虽然我没有尝试过，但是由于你的两台电脑可以通过局域网IP连接，可以看出两台电脑虽处于不同网段，但共同使用一个路由接入公网，这样会不会产生端口号冲突？可以尝试修改数据库服务器的SQL SERVER的端口号，并进行映射。

5、服务器上的数据库是使用默认实例名还是指定实例名，如果是指定实例名要在服务器名后加上实例名。

6、建议，局域网内使用局域网IP连接，局域网外使用域名连接。测试也要放在局域网外测试才有意义。

最简单的办法是：在VB里添加一个ADO部件，将其放到窗体中，然后右键选择属性，在其属性页的下面有个生成连接字符串的项，点击其后的按钮，然后一步步的来做（很简单的），然后连接字符串就会在那里生成，只要拷贝这个字符串，就可以用ADODB来连接了。。。

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &"Z:\专用管理\data\data.mdbJet OLEDB:Database Password=cjw123456Persist Security Info=False"

打开网上邻居以后，映射一下网络驱动器

---