老师，

  这样写不行？

BeforeConnectOuterDataSource

\'第一次连接的时候,同时加载两个空的数据库

Dim str As String= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ProjectPath

Dim str2 As String=".mdb;Persist Security Info=False"

Dim strnams() As String={"udpsever","httpsever"}

For Each strnam As String In strnams

    If Connections.Contains(strnam)=False Then

MessageBox.Show(str & strnam & str2)

        Connections.Add(strnam,str & strnam & str2)

    End If

Next