[cordava]

سلام عليكم لدي هذة القائمة التي تعرض علي Listview وتعرض تمام ولكن طالما أضغط علي بوتن داخل هذا الكود يعرض ال Items التي انعرضت مع قبل وكذلك الجديدة 
كيف أجعل listview تتأكد ان هذة ال Items موجودة علي Listview لا تعرض وإلا تعرض عادي 

كود :

 Private Sub retrieve()
       Dim imglist As New ImageList
       imglist.ColorDepth = ColorDepth.Depth32Bit
       ListView1.LargeImageList = imglist
       ListView1.LargeImageList.ImageSize = New System.Drawing.Size(200, 200)
       con.Close()
       If con.State = ConnectionState.Closed Then con.Open()
       Dim strsql As String = "SELECT dbo.pictures.Nu_pic, dbo.FilePictures.Num_File, dbo.FilePictures.Num_pic, dbo.pictures.pic,dbo.Files.Num_file  FROM dbo.FilePictures INNER JOIN dbo.Files ON dbo.FilePictures.Num_File = dbo.Files.No_Genfile INNER JOIN  dbo.pictures ON dbo.FilePictures.Num_pic = dbo.pictures.Nu_pic where dbo.Files.Num_file=" & Text_NoFile.Text
       Dim dt_images As New DataTable
       cmd.Connection = con
       cmd.CommandText = strsql
       adp.SelectCommand = cmd
       adp.Fill(ds)
       For Each dr As DataRow In ds.Tables(0).Rows
           Dim imb_buffer = CType(dr("pic"), Byte())
           Dim img_stream As New IO.MemoryStream(imb_buffer, True)
           img_stream.Write(imb_buffer, 0, imb_buffer.Length)
           imglist.Images.Add(dr("Nu_pic").ToString(), New Bitmap(img_stream))
           img_stream.Close()
           Dim lsvparent As New ListViewItem
           'lsvparent.Text = dr("pic").ToString
           lsvparent.ImageKey = dr("Nu_pic").ToString
           ListView1.Items.Add(lsvparent)
           lsvparent.Text = imglist.Images.Count.ToString
       Next


       con.Close()
   End Sub