Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim s As Sql.SqlDataSourceEnumerator
        s = Sql.SqlDataSourceEnumerator.Instance
        Dim dt As DataTable = s.GetDataSources()
        DataGridView1.DataSource = dt
    End Sub