Leer cadena de conexion de archivo de texto

[jhernanp]

esto es lo que hago en todas mis paginas web para establecer la cadena de copnexion.

Public Class WebForm1
Inherits System.Web.UI.Page
Dim cn As New OdbcConnection("UID=hsac;PWD=hsac;DRIVER={Microsof t Odbc for Oracle};SERVER=INTRANET_192.168.201.14;")

lo que quiero hacer es leerla desde un archivo de texto llamado cnn.txt trate de hacerlo asi pero no funciona.

Public Class WebForm1
Inherits System.Web.UI.Page
Dim FileItem As New FileInfo(Server.MapPath("cnn.txt"))
Dim r As StreamReader = FileItem.OpenText()
Dim cadena = r.ReadToEnd
Dim cn As New OdbcConnection(cadena)

espero puedan ayudarme.