[مساعدة]

العمود ID_Format نصي وليس رقمي،

تفضل التعديل

كود :

Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Try
        cmd = New OleDbCommand(String.Empty, conn)
        conn.Open()
        For i = 0 To DGVAlert.Rows.Count - 1
            ' يمكن الإشارة باسم العمود بدلا من رقمه لمعرفة القيمة
            If DGVAlert.Item("X", i).Value = True Then
                Dim ID_Format As String = DGVAlert.Item(0, i).Value
                cmd.CommandText = "Delete from TB_Notices where ID_Format = '" & ID_Format & "' "
                cmd.ExecuteNonQuery()
            End If
        Next
        conn.Close()
        FillDGVAlert()
        MsgBox("تمت عملية الحذف بنجاح", MsgBoxStyle.Exclamation, "تنبيه")

    Catch ex As Exception
        Exit Sub
    End Try
End Sub

أثناء كون البرنامج في مرحلة التطوير قم بتعطيل Try ليظهر أي خطأ محتمل في الكود.