主题：删除数据源，增加新的数据源后，原来在外部表设置里面设置的表的加载条件是否都没有了。

老师我用的是这种动态的修改数据源代码。

Dim s As String =""

    '遍历当前属于此数据源的表

    For Each dt As DataTable In DataTables

        If dt.C  Then

            s += "|" & dt.name

        End If

    Next

    s = s.Trim("|")

    '卸载表

    DataTables.Unload(s)

    Dim s1 As String =  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dlg.FileName & ";Persist Security Info=False"

    Connections.Delete("ss")

    Connections.add("ss",s1)

    DataTables.load(s)