How's this? It's from my "Connecting" talk and part of my ADO.NET 2.0 VSLive
Workshop to be done in SFO in February.

Private Sub ReturnListOfServerInstances(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles Button1.Click
       Dim drProvider As DataRow =
DbProviderFactories.GetFactoryClasses.Rows(0) ' To make sure object is
instantiated
       Try
           Me.Cursor = Cursors.WaitCursor
           ' DbProviderFactories is a new class for ADO 2.0
           ' GetFactoryClasses is a new method for ADO 2.0
           tblProviders = DbProviderFactories.GetFactoryClasses()
           For Each drProvider In tblProviders.Rows
               Dim factory As DbProviderFactory =
DbProviderFactories.GetFactory(drProvider)
               Dim dsE As DbDataSourceEnumerator =
factory.CreateDataSourceEnumerator()
               If dsE Is Nothing Then
               Else
                   DataGridView1.DataSource = dsE.GetDataSources()
               End If
           Next drProvider
       Catch exCE As System.Configuration.ConfigurationException
           MsgBox("The " & drProvider(0).ToString & " could not be
loaded.")
       Catch ex As Exception
           MsgBox(ex.ToString)
       Finally
           Me.Cursor = Cursors.Default
       End Try
   End Sub