Dim fileReader As String
Dim fileReader1 As String
Dim fileReader2 As String
Dim fileReader3 As String
fileReader = My.Computer.FileSystem.ReadAllText("C:\Temp\ConnectionStr.txt")
fileReader1 = File.ReadAllLines("C:\Temp\ConnectionStr.txt").ElementAt(0).ToString
fileReader2 = File.ReadAllLines("C:\Temp\ConnectionStr.txt").ElementAt(1).ToString
fileReader3 = File.ReadAllLines("C:\Temp\ConnectionStr.txt").ElementAt(2).ToString
MsgBox(fileReader)