منبع:https://barnamenevis.org/showpo...0&postcount=11



Imports System.Data.Sql



 Private Sub ShowSQLServerInstances()



        Dim instance As SqlDataSourceEnumerator = SqlDataSourceEnumerator.Instance

        Dim table As System.Data.DataTable = instance.GetDataSources()

        dataGridView1.DataSource = (table)

    End Sub