[moahmed.abdelmohsen]

بعد استخدام كود الحفظ مثل ذالك 

كود :

  Public Sub Save_expiredDate_InDirect(colName As String, colNametxt As String)
       ' check if this ColumnName is already exist in database
       Dim dt As New DataTable
       Dim da As New OleDbDataAdapter
       dt.Clear()
       da = New OleDbDataAdapter("Select * FROM expiredDate where " & colName & " = '" & colNametxt & "'", con)
       da.Fill(dt)
       ' if Column present give msgbox to alert & Dont save
       If dt.Rows.Count > 0 Then
           Exit Sub
           'MsgBox("هذا الاسم موجود من قبل ", MsgBoxStyle.Critical, "بيانات مكررة")
       Else
           dt.Rows.Add()
           Dim last As Integer = dt.Rows.Count - 1
           'DT.Rows(last).Item("id") = id.Text
           dt.Rows(last).Item("expiredDate") = Label1.Text
           Dim Save As New OleDbCommandBuilder(da)
           da.Update(dt)
           dt.AcceptChanges()
           'give msgbox to sure save
           MsgBox("تم الحفظ بنجاح ", MsgBoxStyle.Information, "تاكيد الحفظ")

       End If
   End Sub

يجب عليك استدعاء Sub الخاصة بالحفظ خلف زر الامر 

---

وبعد ذلك الامر ضف
        Me.Close()