主题：[求助]能否实现动态数据源的设置？？

Dim cn As Connection
cn =  Connections("test")

Connections的属性和方法有：

Add

增加数据源。

语法：

Add(Name, ConnectionString)

Name：       新增数据源的名称。
ConnectionString：新增数据源的链接字符串。

例如：

Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\abc.mdb;Persist Security Info=False")

删除指定名称的数据源。

语法：

Delete(Name)

Name：   要删除的数据源名称。

TryConnect

测试指定的链接字符串能否连通，如果能连通，则返回True，否则返回False。

语法：

TryConnect(ConnectionString)

ConnectionString：要测试的链接字符串。

Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\data\Northwind.mdb;Persist Security Info=False"
If Connections.TryConnect(s) = False Then
    MessageBox.Show("数据源无法连通!")
End If

判断是否存在指定名称的数据源，如果存在，就返回True。

语法：

Contains(Name)

Name：   数据源名称。

Count

返回数据源的数量。