主题：请问这个代码怎么写？SQL

'''
Dim s As String = FileSys.ReadAllText(e.ProjectPath & "Attachments\SqlServers.txt")
Dim arr() As String = s.Replace(vbcr,"").Split(vblf)
For i As Integer = 0 To 1
    Dim ipdata As 这里请问怎么写？
    ipdata.host = arr(i*3+2).Split("=")(1)
    If e.Name = "彬阳数据" Then
        If Filesys.FileExists(e.ProjectPath & "Attachments\SqlServers.sipcg") Then
            For iy As Integer = 1 To 1
                Dim ip As String = ipdata.host
                e.ConnectionString = e.ConnectionString.Replace("192.168.0.17",ip)
            Next
            Exit For
        End If
    End If
Next

以下是SqlServers.txt的内容

Password=112233
User ID=user
Data Source=192.168.0.18
Password=112233
User ID=user
Data Source=bnang.oicp.net

我的想法是制作一个SqlServers.txt文件