狐爸给了个好办法 用于运行中切换数据源

AddConnection

ChangeConnection

现在有两个问题：

1.如何判断数据源已经存在  怎么写代码

2.如何把新数据源的表 全部切换过来 代码有了

Dim s1 As String =  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\\销售系统\\data1.MDB;Persist Security Info=False"
AddConnection("we1",s1)
Dim s As String =""
\'遍历当前属于此数据源的表
For Each dt As DataTable In DataTables
    If dt.C  Then
       s=dt.name
DataTables(s).ChangeConnection("we1")
   End If
Next

3.删除已经添加的数据源 代码怎么写

1、3、http://www.foxtable.com/help/topics/1944.htm