It works fine for me:
Dim sdse As SqlDataSourceEnumerator = SqlDataSourceEnumerator.Instance
Dim dt As DataTable = sdse.GetDataSources()
For Each row As DataRow In dt.Rows
For Each col As DataColumn In dt.Columns
Console.Write(row(col))
Console.Write(", ")
Next
Console.WriteLine()
Next
Console.WriteLine(dt.Rows.Count)
Finds my local SQL Server instance without any problems:
GRDESK, SQLEXPRESS, No, 11.0.5058.0,
1