Public Class Form1
    Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTest.Click
        Dim con As New OleDb.OleDbConnection
        Dim dbProvider As String
        Dim da As New OleDb.OleDbDataAdapter
        Dim ds As New DataSet
        Dim sql As String
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        Dim fileReader As New System.IO.StreamReader("C:\ServerList\ServerList.txt")
        Dim Server As String
        Dim fileContents() As String = fileReader.ReadToEnd.Split(ControlChars.Cr)
        Dim lines As String() = IO.File.ReadAllLines("C:\ServerList\ServerList.txt")
        Dim startnum As Integer
        Dim endnum As Integer
 
        startnum = 0
        endnum = lines.Length - 1
 
        For i = startnum To endnum
            MsgBox(i)
            Server = fileContents(i).Replace(vbLf, String.Empty).Replace(vbCr, String.Empty)
            dbProvider = "provider = sqloledb;Data Source=" & Server & ";Initial Catalog=Windman;User ID=username;Password=password"
            sql = "SELECT COUNT(*) AS Expr1 FROM TClientNotificationBuffer"
            con = New OleDb.OleDbConnection(dbProvider)
            con.Open()
            da = New OleDb.OleDbDataAdapter(sql, con)
            da.Fill(ds, "AlarmCount")
            "txt" & i.Text = ds.Tables("AlarmCount").Rows(0).Item(0)
            con.Close()
        Next i
    End Sub
End Class