Private Sub cmd_Save_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmd_Save.Click
 
If MyData.HasChanges Then
 
            Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM" & _
              "Abfr_Kind_Essen", Data)
 
            DA.TableMappings.Add("Abfr_Kind_Essen", "Essen")
 
            DA.Update(MyData, "Essen")
 
            Me.Close()
        End If
 
    End Sub