远程和本地各有两个SQL数据源，如果远程数据源不能连接就同时连接本地两个外部数据源，本地两个外部数据源的连接字符串分别为：

Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=JG;Data Source=HHJY-PC\\HHJY01

Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=SCGL;Data Source=HHJY-PC\\HHJY01

在BeforeConnectOuterDataSource事件中如何设置两个数据源的连接字符串，请各位老师指教，谢谢！！

If Network.Ping("192.168.0.188")
     \'保持不变
Else If Network.Ping("192.168.0.13")
      e.ConnectionString =
End If

在BeforeConnectOuterDataSource事件中设置如下代码，出现两次同样的错误提示，代码应该如何修改，请各位老师指教，谢谢！！

If Network.Ping("192.168.0.188") Then
    Connections.Add("JGXT","Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=JGXT;Data Source=192.168.0.2")
    Connections.Add("SCGL","Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=SCGL;Data Source=192.168.0.188")
ElseIf Network.Ping("192.168.0.13") Then
    Connections.Add("JG","Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=JG;Data Source=HHJY-PC\\HHJY01")
    Connections.Add("SCGL","Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=SCGL;Data Source=HHJY-PC\\HHJY01")
Else
    MessageBox.Show("网络不通")
End If

问题解决，代码如下，当断开局域网重新打开项目时，会自动与本机的数据库连接（原来需要修改连接字符串，很麻烦）。

If Network.Ping("192.168.0.188") Then
    If e.name = "JGXT" Then
        e.Connection String = "Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=JGXT;Data Source=192.168.0.2"
    ElseIf e.name = "SCGL" Then
        e.Connection String = "Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=oa;Initial Catalog=SCGL;Data Source=192.168.0.188"
    End If
ElseIf Network.Ping("hhjy-pc") Then
    If e.name = "JG" Then
        e.Connection String = "Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=JG;Data Source=HHJY-PC\\HHJY01"
    ElseIf e.name = "SCGL" Then
        e.Connection String = "Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=SCGL;Data Source=HHJY-PC\\HHJY01"
    End If
Else
    MessageBox.Show("网络不通")
End If

代码贴不上去，所以加了一个空格，应用时将e.Connection String 中间的空格去除。

看着这一节最后面的内容：

http://www.foxtable.com/help/topics/2245.htm

谢谢狐爸老师的指教，局域网的升级路径分别\\\\192.168.0.188\\scgl 连接成功。但是本机的升级路径 file://hhjy-pc/scgl却连接不上，将这个升级路径复制到项目属性的在线升级路径却可以连接，不知问题出在哪里？请狐爸老师指教，谢谢！！

If Network.Ping("192.168.0.188") Then
    If e.name = "JGXT" Then
        e.Connection String = "Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=JGXT;Data Source=192.168.0.2"
    ElseIf e.name = "SCGL" Then
        e.Connection String = "Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=zjjyoa;Initial Catalog=SCGL;Data Source=192.168.0.188"
        UpdatePath = “\\\\192.168.0.188\\scgl”

    End If
Else
    MessageBox.Show("网络不通")
End If