حذف سطر عن طريق شك بوكس في داتا قريد

بعد أن تقوم باستيراد فضائي الاسماء التاليين :

Imports System.Data.SqlClientImports System.Configuration

اكتب الكود التالي ضمن حدث الضغط على زر الحذف:

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        ' انشاء سلسلة الاتصال بقاعدة البيانات
        Dim connection As String = ConfigurationManager.ConnectionStrings("MyConnectionInConfigFile").ConnectionString
        Dim con As New SqlConnection(connection)
        ' تعريف متحول نصي لتخزين الاستعلامات التي نرغب بتنفيذها
        Dim Quiry As String = ""
        ' تعريف كومند لتنفيذ الاستعلام الذي نرغب بتنفيذه
        Dim cmd As New SqlCommand(Quiry, con)
        ' تعريف متحول عداد
        Dim counter As Integer = 0
        ' تعريف حلقة فور ايتش لنتعرف على العناصر التي تم التعليم عليها بواسطة عنصر التحكم شيكبوكس
        For Each li As ListItem In CheckBoxList1.Items
            ' اذا كان العنصر قد تم وضع اشارة صح عليه وتم اختياره فادخل وقم بزيادة العداد بمقدار واحد وهيئ الاستعلام
            If li.Selected Then
                counter += 1
                ' لاحظ وجود الفاصلة المنقوطة بنهاية الاستعلام وهي ضرورية لفصل الاستعلامات عن بعضهم البعض
                Quiry += "Delete from table where ItemID=" + li.Value & ";"
            End If
        Next
        'لم يتم اختيار اي عنصر بالقائمة
        If counter = 0 Then
            Label1.Text = "No item selected"
        Else
            ' نقوم بتنفيذ الاستعلام
            Dim x As Integer = cmd.ExecuteNonQuery()
            If x > 0 Then
                ' تم تنفيذ الاستعلام بنجاح
                Label1.Text = "You Delete " & counter & " Item(s)"
            Else
                ' فشل تنفيذ الاستعلام
                Label1.Text = "Deletion faild"
            End If
        End If
    End Sub