Dim instance As System.Data.Sql.SqlDataSourceEnumerator = System.Data.Sql.SqlDataSourceEnumerator.Instance Dim DataTable As System.Data.DataTable = instance.GetDataSources() For Each Row As data.DataRow In DataTable.Rows output.show(Row("ServerName")) Next