[ahmadpal]

اعتقد ان المشكلة هي  If row.Cells("Nom").Value IsNot Nothing Then
 وتعني في حال يوجد بيانات وقد قمت بحذف السجلات جميعها في بدايه الكود من خلال
Dim cmd As OleDbCommand = New OleDbCommand("Delete * from Emp", con)

بمعنى انت تطلب منه اضافه سجل في حال يوجد بيانات وانت في بدايه الكود طلبت منه حذف جميع البيانات
والله اعلم او قد لا اكون قد فهمت الكود او السؤال بشكل صحيح