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);
        
    

<?xml version="1.0" encoding="utf-8"?>
<configuration>
  <connectionStrings>
    <add name="ConnStr1" connectionString="LocalSqlServer: data source=127.0.0.1;Integrated Security=SSPI;Initial Catalog=aspnetdb"
      providerName="System.Data.SqlClient" />
  </connectionStrings>
</configuration>