搜索本地网络内所有可用的SQl实例

'搜索本地网络内所有可用的SQl实例
Dim instance As SqlDataSourceEnumerator = SqlDataSourceEnumerator.Instance
Dim dt As DataTable = instance.GetDataSources()
DataGridViewX1.DataSource = dt