[الرائد]

السلام عليكم اخواني 
في كود الحفظ جعلت ملئ تكست بوكس واضافة الصورة واجبان ,(فيجوال بيسك 2010 /  أكسس 2013)
في بعض الاحيان رسالة ملئ التكست بوكس للمستخدم تكون فقط تأكيدا له بفعل الامر ,  
فحين الضغط على حفظ دون ادخال الصورة يقوم البرنامج بحفظ أمر التخزين مع العلم أنه يطالبني بالصور دون أن يشعرني أنه قام بعمل تخزين بيانات.
لكن حين اضيف الصورة أجد أن البرنامج خزن البيانات بشكل مضاعف حسب عدد مرات الحفظ التي قمت بها قبل اضافة الصورة.

أود منكم معاينة هذا الكود جيدا ونصحي بما يجب فعله
ومن لم يفهم ما اشرت اليه يمكنني الشرح أكثر .

كود :

  Sub saving()

       Try
           dt.Rows.Add()
           Dim pos As String = dt.Rows.Count - 1
           dt.Rows(pos).Item(1) = ComboBox1.Text
           dt.Rows(pos).Item(2) = langcombx1.Text
           dt.Rows(pos).Item(3) = numeration.Text & " - " & annee.Text
           dt.Rows(pos).Item(4) = DateTimePicker1.Value
           dt.Rows(pos).Item(5) = TextBox3.Text
           dt.Rows(pos).Item(6) = TextBox4.Text
           dt.Rows(pos).Item(7) = TextBox5.Text
           dt.Rows(pos).Item(8) = TextBox6.Text
           dt.Rows(pos).Item(9) = RichTextBox1.Text
           If numeration.Text = "" Then
               MsgBox("ملئ خانة رقم 1 الشهادة واجب")
               Return
           End If

           If annee.Text = "" Then
               MsgBox("ملئ خانة رقم 2 الشهادة واجب")
               Return
           End If

           If TextBox3.Text = "" Then
               MsgBox("ملئ خانة الاسم واجب")
               Return
           End If
           Dim txt As String = " - "
           Dim EmpNum As String = numeration.Text & txt & annee.Text

           If String.IsNullOrEmpty(pathimg.Text) Then
               MessageBox.Show("الرجاء اختيار صورة")
               Return
           Else
               If File.Exists("image\" & EmpNum & ".jpg") Then
                   If MessageBox.Show("توجد صورة لها نفس الاسم هل تريد استبدالها ؟", "عذرا", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                       File.Delete("image\" & EmpNum & ".jpg")
                       File.Copy(pathimg.Text, "image\" & EmpNum & ".jpg")
                   Else
                       Return
                   End If
               Else
                   File.Copy(pathimg.Text, "image\" & EmpNum & ".jpg")
               End If
               save_date()
               clearrr()
               MsgBox("تم الحفظ بنجاح")
           End If

       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub

اخواني الكرام أنا متطوع في عمل برنامج مصلحة خيري لمؤسسة تعاونية

 وأتمنى منكم مساعدتي قدر الامكان وأجركم عند الله مضاعف