1、执行代码报什么错？

2、你代码写在什么地方？

3、弹出msgbox(lts)的值是什么？

AfterOpenProject

\'\'\'
Dim s As String = FileSys.ReadAllText(ProjectPath & "Attachments\\SqlServers.txt")
msgbox(s)
Dim arr() As String = s.Replace(vbcr,"").Split(vblf)
msgbox(arr.length)
For i As Integer = 0 To 1
    Dim sql0 As new ftpclient
    msgbox(arr(i*3))
    msgbox(arr(i*3+1))
    msgbox(arr(i*3+2))
    sql0.Password=arr(i*3).Split("=")(1)
    msgbox(arr(i*3).Split("=")(1))
    sql0.Account = arr(i*3+1).Split("=")(1)
    msgbox(arr(i*3+1).Split("=")(1))
    sql0.host = arr(i*3+2).Split("=")(1)
    msgbox(arr(i*3+2).Split("=")(1))
    Dim lts As String = "Provider=SQLOLEDB.1;Password="+sql0.Password+";Persist Security Info=True;User ID="+sql0.Account+";Initial Catalog=bydata;Data Source="+sql0.host
    msgbox(lts)
    If Connections.TryConnect(lts) = True Then
        MessageBox.Show("数据源已经连通!")
        For iy As Integer = 1 To 1
            Connections.Add("用户",lts)
        Next
        Forms("用户登录").Open()
        If _UserName = "" Then
            Syscmd.Project.Exit()
            Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
        End If
        Exit For
    Else
        MessageBox.Show("数据源无法连通!")
    End If
Next

现在经过修改不报错，但是感觉别扭

    Dim sql0 As new ftpclient
    msgbox(arr(i*3))
    msgbox(arr(i*3+1))
    msgbox(arr(i*3+2))
    sql0.Password=arr(i*3).Split("=")(1)
    msgbox(arr(i*3).Split("=")(1))
    sql0.Account = arr(i*3+1).Split("=")(1)
    msgbox(arr(i*3+1).Split("=")(1))
    sql0.host = arr(i*3+2).Split("=")(1)
    msgbox(arr(i*3+2).Split("=")(1))
    Dim lts As String = "Provider=SQLOLEDB.1;Password="+sql0.Password+";Persist Security Info=True;User ID="+sql0.Account+";Initial Catalog=bydata;Data Source="+sql0.host
    msgbox(lts)

因为它是SQL，不是FTP，不知道怎么改

1、你数据怎么存的，你就怎么取出来；

2、如果想键值存放，参考

下载信息  [文件大小：13.4 KB  下载次数：49]

点击浏览该文件:读写ini_例子.zip

3、你目前还有什么问题没有解决？

晕，文件打不开

下载一个【商业版】安装使用打开。