[E100]

كود :

   Private Sub BackgroundWorker2_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker2.DoWork
       Dim da As New SqlDataAdapter("SELECT publicroom.id,publicroom.nameroom,useraddnew.id,useraddnew.surnameandname,useraddnew.img FROM publicroom INNER JOIN useraddnew ON useraddnew.id = publicroom.id WHERE publicroom.nameroom =('" & Me.Label1.Text.ToString & "')", con)
       Dim dt As New DataTable
       da.Fill(dt)
       For Each r As DataRow In dt.Rows
           Dim friendid As Integer = r("id")
           Dim i = ListView1.Items.Cast(Of ListViewItem).Any(Function(x As ListViewItem) x.SubItems(1).Text = friendid)
           If Not i Then
               Dim friendimg As Byte() = r("img")
               Dim namefriend As String = r("surnameandname")
               ImageList1.Images.Add(friendid, ImgFromByte(friendimg))
               Dim itm As New ListViewItem(namefriend, friendid.ToString)
               itm.SubItems.Add(friendid)
               ListView1.Items.Add(itm)
           End If
       Next
       For Each itm As ListViewItem In ListView1.Items
           Dim friendid As Integer = itm.SubItems(1).Text
           Dim a = dt.Rows.Cast(Of DataRow).Any(Function(x As DataRow) x("id") = friendid)
           If Not a Then
               ListView1.Items.Remove(itm)
           End If
       Next
   End Sub

---

اخبرني بالنتيجة