KundenBO1.Add()If Childkunden.ShowDialog = DialogResult.OK ThenKundenBO1.Save()ElseKundenBO1.Undo(MicroFour.StrataFrame.Business.BusinessUndoType.CurrentRowOnly)End If