' Get the ConnectionStrings section.        
' This function uses the ConnectionStrings 
' property to read the connectionStrings
' configuration section.
Public Shared Sub ReadConnectionStrings()

    ' Get the ConnectionStrings collection.
    Dim connections _
        As ConnectionStringSettingsCollection = _
            ConfigurationManager.ConnectionStrings

    If connections.Count <> 0 Then
        Console.WriteLine()
        Console.WriteLine( _
            "Using ConnectionStrings property.")
        Console.WriteLine( _
            "Connection strings:")

        ' Get the collection elements.
        For Each connection _
            As ConnectionStringSettings In connections
            Dim name As String = connection.Name
            Dim provider As String = _
                connection.ProviderName
            Dim connectionString As String = _
                connection.ConnectionString

            Console.WriteLine( _
                "Name:               {0}", name)
            Console.WriteLine( _
                "Connection string:  {0}", _
                    connectionString)
            Console.WriteLine( _
                "Provider:            {0}", provider)
        Next
    Else
        Console.WriteLine()
        Console.WriteLine( _
            "No connection string is defined.")
        Console.WriteLine()
    End If
End Sub

// Get the ConnectionStrings section.        
// This function uses the ConnectionStrings 
// property to read the connectionStrings
// configuration section.
public static void ReadConnectionStrings()
{

  // Get the ConnectionStrings collection.
  ConnectionStringSettingsCollection connections =
      ConfigurationManager.ConnectionStrings;

  if (connections.Count != 0)
  {
    Console.WriteLine();
    Console.WriteLine("Using ConnectionStrings property.");
    Console.WriteLine("Connection strings:");

    // Get the collection elements.
    foreach (ConnectionStringSettings connection in 
      connections)
    {
      string name = connection.Name;
      string provider = connection.ProviderName;
      string connectionString = connection.ConnectionString;

      Console.WriteLine("Name:               {0}", 
        name);
      Console.WriteLine("Connection string:  {0}", 
        connectionString);
     Console.WriteLine("Provider:            {0}", 
        provider);
    }
  }
  else
  {
    Console.WriteLine();
    Console.WriteLine("No connection string is defined.");
    Console.WriteLine();
  }
}