If MyData.HasChanges Then
            Dim DA As New OleDb.OleDbDataAdapter("SELECT Tab_Kind.Name," & _
              "Tab_Kind.Vorname, Tab_Kind_Essen.Essen, Tab_Kind_Essen.Stunden" & _
              "FROM Tab_Kind INNER JOIN Tab_Kind_Essen ON" & _
              "Tab_Kind.ID=Tab_Kind_Essen.FK_Kind", Data)
 
            DA.TableMappings.Add("Tab_Kind_Essen", "Essen")
 
            DA.Update(MyData, "Essen")
 
            Me.Close()