como obtener el connection string a traves del nombre

dim nombre as string="Local"

dim cs as string=ConfigurationManager.ConnectionStrings(nombre).ConnectionString