主题：[求助]代码

帮助的是：
 
If e.name = "数据源1" Then
    e.Connection String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "数据文件1.mdb;Persist Security Info=False"
ElseIf e.name = "数据源2" Then
    e.Connection String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "数据文件2.mdb;Persist Security Info=False"
End if
 
你照搬就行了：
 
 
If e.name = "数据源1" Then
    e.Connection String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\IT3YWRYM7VDGFS0\data\吴四小-运动会.MDB;Persist Security Info=False"
ElseIf e.name = "数据源2" Then
    e.Connection String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\OKFIS7QVHUB8CWY\data\wsxydh.mdb;Persist Security Info=False"
End if

其实你的更简单，其实你可以在数据源设置窗口，设置好数据源，看看连接字符串是什么，复制过来就行。

二楼就有答案，看示例五：

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

稍微变通一下：

If e.name = "数据源名称" Then
    If Network.Ping("10.41.72.103",1000) = True  Then 
           e.Connection String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\IT3YWRYM7VDGFS0\data\吴四小-运动会.MDB;Persist Security Info=False"
    Else

          e.Connection String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\OKFIS7QVHUB8CWY\data\wsxydh.mdb;Persist Security Info=False"
    End If

end if