主题：BeforeConnectOuterDataSource SQL连接问题

Dim cn As String = "Provider=SQLOLEDB.1;Password={0};Persist Security Info=True;User ID={1};Initial Catalog=bydata;Data Source={2}"
Dim s As String = FileSys.ReadAllText(ProjectPath & "Attachments\SqlServers.txt")
Dim arr() As String = s.Replace(vbcr,"").Split(vblf)
For i As Integer = 0 To 1
    Dim exp As String = CExp(cn,arr(i*3).Split("=")(1),arr(i*3+1).Split("=")(1),arr(i*3+2).Split("=")(1))
    If Connections.TryConnect(exp) = True Then
        For iy As Integer = 1 To 1
            Connections.Add("生产数据",exp)
            MessageBox.Show("生产数据数据源加载成功!")
        Next
    Else
        MessageBox.Show("生产数据数据源无法连通!")
    End If