Metin kutusunun içindeki kaydı silebilir miyiz.? Şöyle kodu çalışmama entegre etmek istiyorum?

metin kutusunun adı: txtadsoyad
Tablo adı: tbl_ogrenciler
tablodaki alan adi: adi_soyadi

Dim GItem As Variant



For Each GItem In txtadsoyad.ItemsSelected





    If MsgBox(Me.txtadsoyad(GItem) & " listeden silinsin mi?", vbQuestion + vbYesNo) = vbYes Then

        DoCmd.SetWarnings False

        DoCmd.RunSQL "DELETE adi_soyadi FROM tbl_ogrenci WHERE (((adi_soyadi)='" & Me.txtadsoyad.ItemData(GItem) & "'))"

        

        DoCmd.SetWarnings True



    End If



Next GItem