<configuration>	
	<appSettings>	
<add key="ConStr" value="server=localhost,;database=db;uid=uid;password=pwd;"/>
     </appSettings>
	<connectionStrings>
<add name="ConnectionString1" connectionString="Data Source=sql;Initial Catalog=database;User ID=uid"
   providerName="System.Data.SqlClient" /> 
	</connectionStrings>

 Public Shared ReadOnly Property ConnectionString() As String
        Get
            Return System.Configuration.ConfigurationManager.AppSettings("ConStr")
        End Get
    End Property

 Public Conn As New SqlConnection()

Public Sub OpenConnection()
		Try
			If (Conn.State = ConnectionState.Open) Then
				Conn.Close()
				Conn.ConnectionString = ConnectionString
				Conn.Open()
			Else
				Conn.ConnectionString = ConnectionString
				Conn.Open()
			End If

		Catch ex As Exception
		End Try		
	End Sub