Encrypt ConnectionString in ASP.NET / VB 2005/2008 2.0  web.config

Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.UI.WebControls
Imports System.Configuration
Imports System.Web.Security
 
Partial Public Class Login
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Encrypt("DataProtectionConfigurationProvider")
    End Sub
    Public Sub EncryptConnStr(ByVal protectionProvider As String)
        '---open the web.config file
        Dim config As Configuration = _
           ConfigurationManager.OpenWebConfiguration( _
           Request.ApplicationPath)
        '---indicate the section to protect
        Dim section As ConfigurationSection = _
           config.Sections("connectionStrings")
        '---specify the protection provider
        section.SectionInformation.ProtectSection(protectionProvider)
        '---Apple the protection and update
        config.Save()
    End Sub
    Public Sub DecryptConnStr()
        Dim config As Configuration = _
           ConfigurationManager.OpenWebConfiguration( _
           Request.ApplicationPath)
        Dim section As ConfigurationSection = _
           config.Sections("connectionStrings")
        section.SectionInformation.UnProtectSection()
        config.Save()
    End Sub
 
 
   Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        'Add Job Titles Data to Database
        Dim DBConn As New SqlConnection("UID=MyUserID;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Kiosks;Data Source=DATABASE;Packet Size=4096;")
        'Dim DBConn As New SqlConnection("Data Source=DATABASE;Initial Catalog=Kiosks;")
        Dim DBCmd As New SqlCommand
        Dim DBAdap As New SqlDataAdapter
        DBConn.Open()
 
        Dim strClientIP As String = ""
        strClientIP = HttpContext.Current.Request.ServerVariables("REMOTE_ADDR") 'Request.ServerVariables("REMOTE_ADDR")
        'strClientIP = Request.UserHostAddress()
        Response.Write(strClientIP)
 
        Try
            'Add Insert Statement 
            DBCmd = New SqlCommand("INSERT INTO Users (FName,LName,PIN,KioskIP,uDate) VALUES (@FName,@LName,@PIN,@KioskIP,getdate())", DBConn)
            'Add Database Parameters
            DBCmd.Parameters.Add("@FName", SqlDbType.VarChar).Value = txtFName.Text
            DBCmd.Parameters.Add("@LName", SqlDbType.VarChar).Value = txtLName.Text
            DBCmd.Parameters.Add("@PIN", SqlDbType.Int).Value = intPIN.Text
            DBCmd.Parameters.Add("@KioskIP", SqlDbType.VarChar).Value = strClientIP   'How to determine the IP?
            'DBCmd.Parameters.Add("@cbSundays", SqlDbType.VarChar).Value = cbSundays.Checked  'Just an example of a checkbox
            'DBCmd.Parameters.Add("@WorkersComp", SqlDbType.VarChar).Value = ddlJobDescriptionPrim.SelectedValue     ' Example of DropDownList
 
            DBCmd.ExecuteNonQuery()
 
        Catch exp As Exception
            Response.Write(exp)
        End Try
 
        'Close Database connection 
        'and Dispose Database objects 
        DBCmd.Dispose()
        DBAdap.Dispose()
        DBConn.Close()
        DBConn = Nothing
 
    End Sub
End Class