Public Function GetSQLInstances() As List(Of String) ' Dim Instances As New List(Of String) Dim SQLInstances As Sql.SqlDataSourceEnumerator ' SQLInstances = Sql.SqlDataSourceEnumerator.Instance ' Dim InstancesDataTable As DataTable = SQLInstances.GetDataSources ' For Each row As DataRow In InstancesDataTable.Rows 'Instances.Add(My.Computer.Name & "" & row(1).ToString) Instances.Add(row(1).ToString) Next ' Return Instances '' End Function