ASP.NET

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