Private Sub event_neuer_kunde(sender As Object, e As EventArgs)
        Using kunde_add
            With kunde_add
                AddHandler loc_ds.Tables("Kunden").RowChanged, AddressOf _
                  Kunde_row_added
                .Kunde_ds = loc_ds
                .ShowDialog()
            End With
        End Using
End Sub
 
Private Sub Kunde_row_added(ByVal sender As Object, ByVal e As _
  DataRowChangeEventArgs)
        If e.Action = DataRowAction.Add Then
 
            If MsgBox("soll es weiter gehen?", MsgBoxStyle.YesNo, _
              My.Application.Info.ProductName) = MsgBoxResult.Yes Then
                'Die Form kunde_add hier schliessen
            Else
                'auf einem anderen Weg weiter
            End If
        End If
End Sub