主题：[求助]如何判断项目打开运行时处于公司内部局域网还是在外网？

TryConnect

测试指定的链接字符串能否连通，如果能连通，则返回True，否则返回False。

语法：

TryConnect(ConnectionString)

ConnectionString：要测试的链接字符串。

Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\data\Northwind.mdb;Persist Security Info=False"
If Connections.TryConnect(s) = False Then
    MessageBox.Show("数据源无法连通!")
End If