Arkadaşlar konu eski fakat benim isteğim veri tabanından değil sadecek listeden silmesi yada gizlemesi. bununla ilgili olarak aşağıdaki kodu yazdım fakat çalışmadı. bakma şansınız var mı?

Private Sub Komut5_Click()
With Me.Liste0
    If .ItemsSelected.Count <> 0 Then
        For i = 0 To .ItemsSelected.Count - 1
            bhd = bhd & .ItemData(.ItemsSelected(i)) & vbNewLine
             
                         CurrentDb.Execute "Insert Into Tablo2 ( pers_ıp, maas, prim , kesinti ) " & _
                              "Select " & CLng(.Column(0, i)) & " As E1, " & CLng(.Column(2, i)) & " As E2, " & CLng(.Column(3, i)) & " As E3, " & CLng(.Column(4, i)) & " As E4 "
          
        Next i
 Liste0.Items.RemoveAt (Liste0.SelectedItem(i))
        Me.Metin2 = bhd
        
 
    End If
End With
Me.Tablo2.Requery
End Sub