Как сохранить столбцы невидимыми в gridview, когда я проверил его и закрыл страницу флажка ?

---

я заявляю, флажки на странице и таблицы в другую страницу ..
я хочу, чтобы при установке флажка, например : флажок id проверял идентификатор столбца в скрытии gridview, а когда я закрываю все страницы и снова открываю только страницу gridview, идентификатор столбца оставался невидимым .
Код, который я пробовал, правильный, и столбцы, которые я проверил, чтобы скрыть, скрыты, но когда я закрою его и снова открою, он будет виден :(
и я хочу, чтобы, когда закрыть эту страницу и открыть снова держите столбцы, которые я выбираю, невидимыми - как я могу это сделать ??

Что я уже пробовал:

Это в странице есть флажок

Protected Sub ID_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ID.CheckedChanged
       If ID.Checked = True Then
           Session("ID") = 1
       Else
           Session("ID") = 0
       End If
   End Sub

   Protected Sub Name_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Name.CheckedChanged
       If Name.Checked = True Then
           Session("Name") = 1
       Else
           Session("Name") = 0
       End If
   End Sub

   Protected Sub Sites_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Sites.CheckedChanged
       If Sites.Checked = True Then
           Session("Sites") = 1
       Else
           Session("Sites") = 0
       End If
   End Sub


   Protected Sub Religions_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Religions.CheckedChanged
       If Religions.Checked = True Then
           Session("Religions") = 1
       Else
           Session("Religions") = 0
       End If
   End Sub

   Protected Sub Nationality_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Nationality.CheckedChanged
       If Nationality.Checked = True Then
           Session("Nationality") = 1
       Else
           Session("Nationality") = 0
       End If
   End Sub

   Protected Sub Department_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Department.CheckedChanged
       If Department.Checked = True Then
           Session("Department") = 1
       Else
           Session("Department") = 0
       End If
   End Sub

   Protected Sub Birth_Date_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Birth_Date.CheckedChanged
       If Birth_Date.Checked = True Then
           Session("Birth_Date") = 1
       Else
           Session("Birth_Date") = 0
       End If
   End Sub

   Protected Sub Hiring_Date_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hiring_Date.CheckedChanged
       If Hiring_Date.Checked = True Then
           Session("Hiring_Date") = 1
       Else
           Session("Hiring_Date") = 0
       End If
   End Sub

и в этой странице есть GridView в

Sub hidecolumnsFromGrid()
        Dim con As New SqlConnection(Application("conn"))
        Dim constring = ConfigurationManager.ConnectionStrings("techConnectionString").ConnectionString()
        con.ConnectionString = constring
        Dim cmd As New SqlCommand("reg2")
        Dim Adapter As New SqlDataAdapter
        cmd.CommandType = CommandType.StoredProcedure
        Dim ds As New DataSet
        Dim dt As New DataTable
        cmd.Connection = con
        Adapter.SelectCommand = cmd
        If Session("ID") = 1 Then
            GridView1.Columns(1).Visible = False
        End If
        If Session("Name") = 1 Then
            GridView1.Columns(2).Visible = False
        End If
        If Session("Sites") = 1 Then
            GridView1.Columns(3).Visible = False
        End If
        If Session("Religions") = 1 Then
            GridView1.Columns(4).Visible = False
        End If
        If Session("Nationality") = 1 Then
            GridView1.Columns(5).Visible = False
        End If
        If Session("Department") = 1 Then
            GridView1.Columns(6).Visible = False
        End If
        If Session("Birth_Date") = 1 Then
            GridView1.Columns(7).Visible = False
        End If
        If Session("Hiring_Date") = 1 Then
            GridView1.Columns(8).Visible = False
        End If
        con.Open()
        Adapter.Fill(ds, "tabel1")
        con.Close()
    End Sub

и назовите это в pageload

---