‘搜索本地网络内所有可用的SQl实例
Dim instance As SqlDataSourceEnumerator = SqlDataSourceEnumerator.Instance
Dim dt As DataTable = instance.GetDataSources()
DataGridViewX1.DataSource = dt
原文：http://www.cnblogs.com/Orangeorchard/p/4594302.html