Try starting here:
Dim instance As SqlDataSourceEnumerator = SqlDataSourceEnumerator.Instance
Dim dt As DataTable = instance.GetDataSources()
For Each row As System.Data.DataRow In dt.Rows
Console.WriteLine("ServerName = {0}", row("ServerName"))
Next