Shared Sub ShowConnectionStrings() 

    ' Get the application configuration file.
    Dim config _
    As System.Configuration.Configuration = _
    ConfigurationManager.OpenExeConfiguration( _
    ConfigurationUserLevel.None)

    ' Get the conectionStrings section.
    Dim csSection _
    As ConnectionStringsSection = _
    config.ConnectionStrings

    Dim i As Integer
    For i = 0 To ConfigurationManager.ConnectionStrings.Count
        Dim cs As ConnectionStringSettings = _
        csSection.ConnectionStrings(i)

        Console.WriteLine( _
        "  Connection String: ""{0}""", cs.ConnectionString)
        Console.WriteLine("#{0}", i)
        Console.WriteLine("  Name: {0}", cs.Name)

        Console.WriteLine( _
        "  Provider Name: {0}", cs.ProviderName)

    Next i

End Sub 'ShowConnectionStrings

static void ShowConnectionStrings()
{
     // Get the application configuration file.
    System.Configuration.Configuration config =
            ConfigurationManager.OpenExeConfiguration(
            ConfigurationUserLevel.None);

    // Get the conectionStrings section.
    ConnectionStringsSection csSection =
        config.ConnectionStrings;

    for (int i = 0; i < 
        ConfigurationManager.ConnectionStrings.Count; i++)
    {
        ConnectionStringSettings cs = 
            csSection.ConnectionStrings[i];

        Console.WriteLine("  Connection String: \"{0}\"",
            cs.ConnectionString);

        Console.WriteLine("#{0}", i);
        Console.WriteLine("  Name: {0}", cs.Name);


        Console.WriteLine("  Provider Name: {0}", 
            cs.ProviderName);

    }

}