IMPOSSíVEL LIMPAR UM GRID?

 Public Sub Pesquisa_LOAD()
        Dim conn As New MySqlConnection
        Dim myCommand As New MySqlCommand
        Dim myAdapter As New MySqlDataAdapter
        Dim myData As New DataTable
        Dim SQL As String

        conn = New MySqlConnection
        conn.ConnectionString = SERVER_CONF



        If apa.NsFiltro.Text = [Ô][Ô] Then
            SQL = [Ô]SELECT * FROM 'apau_sers'.'arco_apa' ORDER BY idarco_apa DESC;[Ô]
        ElseIf apa.NsFiltro.Text = [Ô]Anime[Ô] Then
            SQL = [Ô]SELECT * FROM 'apau_sers'.'arco_apa' WHERE arco_anime LIKE [ô]%[Ô] & apa.txtPesquisa_LOJA.Text & [Ô]%[ô] ORDER BY idarco_apa DESC;[Ô]
        ElseIf apa.NsFiltro.Text = [Ô]Genero[Ô] Then
            SQL = [Ô]SELECT * FROM 'apau_sers'.'arco_apa' WHERE arco_genero LIKE [ô]%[Ô] & apa.txtPesquisa_LOJA.Text & [Ô]%[ô] ORDER BY idarco_apa DESC;[Ô]
        End If


        Try
            conn.Open()
            Try
                myCommand.Connection = conn
                myCommand.CommandText = SQL
                myAdapter.SelectCommand = myCommand
                myAdapter.Fill(myData)
                GRID.DataSource = myData



                Dim image As DataGridViewImageColumn = New DataGridViewImageColumn
                image = CType(GRID.Columns(17), DataGridViewImageColumn)
                GRID.Columns(17).Width = 63   [ô] Onde muda o tamanho de imagem
                image.ImageLayout = DataGridViewImageCellLayout.Zoom


                apa.FLOW.Controls.Clear()
                CreateList()

                conn.Close()



              
            Catch myerro As MySqlException

                msgERRO.msgerror.Text = myerro.Message
                msgERRO.msgtitulo.Text = [Ô]Antenção![Ô]
                pontos_celestiais.ER = [Ô]Apa[Ô]
                Me.Enabled = False
                msgERRO.Show()

            End Try

        Catch myerro As MySqlException
            msgERRO.msgerror.Text = [Ô]Houve um erro na inicialização!...[Ô]
            msgERRO.msgtitulo.Text = [Ô]Antenção![Ô]
            pontos_celestiais.ER = [Ô]Apa[Ô]
            Me.Enabled = False
            msgERRO.Show()

        Finally
            conn.Close()
        End Try

   Public Sub CreateList()
        apa.FLOW.Controls.Clear()
        CountTOTAL()

        For I = 0 To TOTAL - 1
            User= New quadros_loja
            User.PictureBox1.Text = I.ToString()
            User.PictureBox1.Cursor = Cursors.Hand
            User.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
            User.Name = [Ô]UserC[Ô] + I.ToString()
            User.Label1.ForeColor = Color.White
            [ô]95; 206
            User.Width = 95
            User.Height = 206
            apa.FLOW.Controls.Add(User)
            AddHandler User.PictureBox1.Click, AddressOf img_click
            GRID.CurrentCell = GRID.Rows(I).Cells(1)
            Dim bits As Byte() = CType(GRID.CurrentRow.Cells(17).Value, Byte())
            Dim memorybits As New MemoryStream(bits)
            Dim bitmap As New Bitmap(memorybits)
            Dim C As PictureBox = User.PictureBox1
            Dim Nome As String = GRID.CurrentRow.Cells(1).Value
            Dim Episodeos As String = GRID.CurrentRow.Cells(3).Value
            Dim Reco As String = GRID.CurrentRow.Cells(21).Value
            Select Case C.Text
                Case I
                    User.PictureBox1.Image = bitmap
                    User.Label1.Text = Nome
                    ToolTip1.SetToolTip(User.PictureBox1, [Ô]Anime: [Ô] & Nome & vbNewLine & [Ô]Episodeos: [Ô] & Episodeos & vbNewLine & Reco & [Ô] pessoas recomendam este anime[Ô] & vbNewLine & vbNewLine & [Ô]CLIQUE PARA MAIS INFORMAÇÕES[Ô])

            End Select

        Next
    End Sub 

  Private Sub img_click(sender As Object, e As EventArgs)
        Dim c As PictureBox = CType(sender, PictureBox)
        Dim sele = c.Text
        Select Case c.Text
            Case sele
                apa.FLOW.Enabled = False
                apa.WhatsEvent = [Ô]IA[Ô]
                apa.SOCIAL_1_IR.Start()
                Try
                    GRID.CurrentCell = GRID.Rows(sele).Cells(0)
                    NOME.Text = GRID.CurrentRow.Cells(1).Value
                   GENERO.Text = GRID.CurrentRow.Cells(2).Value
                    EPISODEOS.Text = GRID.CurrentRow.Cells(3).Value
                  

                    Dim bits As Byte() = CType(GRID.CurrentRow.Cells(4).Value, Byte())
                    Dim memorybits As New MemoryStream(bits)
                    Dim bitmap As New Bitmap(memorybits)
                   IMG.Image = bitmap



                   
                    Select_db()
                Catch ex As Exception
                    MsgBox(ex.ToString())
                End Try

        End Select