Data not deleting from database

Private Sub Unassign_ButtonClicked(sender As Object, e As AxnImageButtonEventArgs) Handles Unassign.ButtonClicked
        If PagesAssigned.SelectedItem Is Nothing OrElse PagesAssigned.SelectedValue.CompareTo("") = 0 Then
            Message.Text = "Please select page to unassign"
            Message.ForeColor = Color.Red
            Exit Sub
        End If

        Dim conn1 As New SqlConnection(WebFrameworkConnection.GetConnectionString())

        For Each pagename As ListItem In PagesAssigned.Items
            If pagename.Selected Then
                Try

                      
                    conn1.Open()
                    Dim stmt1 As New SqlCommand("select pageid from dbo.pagedefinition where pageaspx = @pagename and pageparameters = @pageparameters", conn1)
                    stmt1.Parameters.Add("@pagename", SqlDbType.VarChar, 255).Value = SelectedPage(pagename.Text)
                    stmt1.Parameters.Add("@pageparameters", SqlDbType.VarChar, 255).Value = SelectedParameters(pagename.Text)
                    Dim pageid As Integer = stmt1.ExecuteScalar
                    conn1.Close()

                    conn1.Open()
                    Dim stmt2 As New SqlCommand("delete from dbo.pagesecurity where pageid = @pageid and rolename = @rolename", conn1)
                    stmt2.Parameters.Add("@pageid", SqlDbType.BigInt).Value = pageid
                    stmt2.Parameters.Add("@rolename", SqlDbType.VarChar, 256).Value = RoleList.SelectedValue
                    stmt2.ExecuteNonQuery()
                    conn1.Close()

                    If CleanUpAccessFailed(pageid, RoleList.SelectedValue) Then
                        Message.Text = "Parent Cleanup Failed, Page NOT Deleted"
                        Message.ForeColor = Color.Red

                        conn1.Open()
                        Dim stmt3 As New SqlCommand("insert into dbo.pagesecurity (pageid,rolename) values (@pageid,@rolename)", conn1)
                        stmt3.Parameters.Add("@pageid", SqlDbType.BigInt).Value = pageid
                        stmt3.Parameters.Add("@rolename", SqlDbType.VarChar, 256).Value = RoleList.SelectedValue
                        stmt3.ExecuteNonQuery()
                        conn1.Close()
                    Else
                        Message.Text = "Page Successfully Removed from Role"
                        Message.ForeColor = Color.Blue
                    End If

                Catch ex As Exception
                    Message.Text = "Page Failed Removal from Role"
                    Message.ForeColor = Color.Red
                Finally
                    conn1.Close()
                End Try
            End If
        Next
        RefreshPageLists()
    End Sub