ASP.NET

<connectionStrings>
		<add name="Database_MARISConnectionString" connectionString="Data Source=MEXTERMSC;Initial Catalog=Database_MARIS;User ID=test;Password=test1234"
   providerName="System.Data.SqlClient" />		
 </connectionStrings>

Imports System.Configuration
Imports System.Web.Security
Imports System.Web.Configuration
Imports Msecurity


Partial Class mARIS_Default3
    Inherits System.Web.UI.Page
    Public tmprptno As String
    Protected Sub page_load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    End Sub
    Private provider As String = "RSAProtectedConfigurationProvider"
    Private section As String = "connectionStrings"

    Protected Sub btnEncrypt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEncrypt.Click
        Try
            Dim conf As Configuration = WebConfigurationManager.OpenWebConfiguration(Request.ApplicationPath)
            Dim confStrSect As ConfigurationSection = conf.GetSection(section)
            If Not confStrSect Is Nothing Then
                confStrSect.SectionInformation.ProtectSection(provider)
                conf.Save()
            End If
            'the encrypted section is automatically decrypted!!
            Response.Write("Configuration Section " & " <b>" & WebConfigurationManager.ConnectionStrings("Database_MARISConnectionString").ConnectionString & "</b>" & " is automatically decrypted")
        Catch ex As Exception
            UpdateEvent("Configuration Manager:Encrypt:" & ex.Message)
            ex = Nothing
        End Try
    End Sub

    Protected Sub btnDecrypt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDecrypt.Click
        Try

            Dim conf As Configuration = WebConfigurationManager.OpenWebConfiguration(Request.ApplicationPath)
            Dim confStrSect As ConfigurationSection = conf.GetSection(section)
            If Not confStrSect Is Nothing AndAlso confStrSect.SectionInformation.IsProtected Then
                confStrSect.SectionInformation.UnprotectSection()
                conf.Save()
            End If

        Catch ex As Exception
            UpdateEvent("Configuration Manager:Decrypt:" & ex.Message)
            ex = Nothing
        End Try
    End Sub
End Class

Protected Sub btnQuotation_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnQuotation.Click
        Dim insertCommand As SqlCommand

        Dim strConnection As String = "Data Source=xxxxx;Initial Catalog=xxxxx;Integrated Security=True"

        Dim objConnection As New SqlConnection(strConnection)

        objConnection.Open()


        Dim strRoom As String
        Dim PRTId As Integer
        Dim RateType, Smoking As String
        Dim NoRooms, Nopeople, NoChildren As Integer

For Each con As Control In phBooking.Controls ''!!!This is the error Line
            strRoom = "INSERT INTO tblRoomTrans(FkPRTId,RateType)
                      VALUES (@PRTId, @RateType)"
            insertCommand = New SqlCommand(strRoom, objConnection)
            If TypeOf con Is DropDownList And con.ID = "DDLRooms" & (txtRows.Text) Then
                PRTId = CType(con, DropDownList).SelectedValue
                insertCommand.Parameters.AddWithValue("@PRTId", PRTId)
            End If

            If TypeOf con Is DropDownList And con.ID = "DDLRateType" & (txtRows.Text) Then
                RateType = CType(con, DropDownList).SelectedValue
                insertCommand.Parameters.AddWithValue("@RateType", RateType)
            End If

           
           insertCommand.ExecuteNonQuery()
        Next

        Response.Redirect("NextPage.aspx")

    End Sub