[sniperjawadino]

جرب

كود :

       Dim position As Integer = BindingContext(dt1).Position

       If System.IO.File.Exists(dt1.Rows(position).Item(21)) = True Then

           IO.File.Delete(dt1.Rows(position).Item(21))

           dt1.Rows(BindingContext(dt1).Position).Delete()

           save_data()

           MsgBox("تم الحذف بنجاح", Title:="تم")

           Close()
       Else
           MsgBox("هذا الملف غير موجود", Title:="")
       End If

طبعا مسار الصورة يجب أن يكون كاملا مع اسم الصورة
إذا لم يكن كذلك

غير

كود :

dt1.Rows(position).Item(21))

ب

كود :

dt1.Rows(position).Item(21) & "/" & dt1.Rows(position).Item(20)