'SQL Server Enumerator
'This app finds all instances of SQL server that it can see.



Imports System.Data

Public Class frmMain

    Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
        Dim instance As Sql.SqlDataSourceEnumerator = Sql.SqlDataSourceEnumerator.Instance
        dgvServers.DataSource = instance.GetDataSources

    End Sub