关于内网和外网自动转换的问题

要实现这个功能是不是在项目事件的IP变化事件和网络可用事件里，定义一个公共变量，然后ping 内网和外网的地址，如果可以通就修改连接字符串？

请问联接字符能动态修改吗？还是要先把原来的删除，再建一个新的？

方法一：切换后，保存连接字符串，重新打开项目，在BeforeConnectOuterDataSource事件设置成新的字符串；

方法二：卸载所有的表，修改链接，重新加载所有的表 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=59825&skin=0

BeforeConnectOuterDataSource：

\'通用-根据内网和外网登录时服务器地址IP的不同,选择不同的连接字符串

Dim a As Boolean

Dim i As Integer

\'If TryConnectHost(IP1) Then

    For i = 1 To 5 \'5可根据内网稳定性调整

        a = Network.Ping(IP1) \'IP1是内网地址，在全局代码中定义

        If a Then

            Exit For

        End If

    Next

\'End If

If a Then

    IPa=IP1  \'IPa是采用地址，在全局代码中定义

Else

    IPa=IP2  \'IP2是外网地址，在全局代码中定义

End If

e.C……;Password=SQL密码; \'这一句看帮助吧