[ابراهيم ايبو]

السلام عليكم  
اختي الكريمة 
لم اتفحص كامل الكود فقط وقعت عيناي على السطر الذي كتبته لك وبعد ردك تتبعت كود الحفظ فوجدت انك لم تنشئي صف الاضافة وبذك يكون الكود على النحو التالي

كود :

       
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
Dim Last As Integer = GroupsDT.Rows.Count
Dim row As DataRow = GroupsDT.NewRow
GroupsDT.Rows.Add()
       GroupsDT.Rows(Last).Item("GroupDate") = GroupDate.Value
       GroupsDT.Rows(Last).Item("GroupID") = GroupID.Text
       GroupsDT.Rows(Last).Item("GroupName") = GroupName.Text
       GroupsDT.Rows(Last).Item("GroupTime") = GroupTime.Value
       GroupsDT.Rows(Last).Item("GroupUser") = GroupUser.Text
       Dim Save As New OleDbCommandBuilder(GroupsDA)
          GroupsDA.Update(GroupsDT)
       GroupsDT.AcceptChanges()
       Load_Groups()
       claregroups()
   End Sub