老师,
这样写不行?
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