Private Sub btn_WE_Notiz_Click(sender As Object, e As EventArgs) Handles _
    btn_WE_Notiz.Click
        Dim NL = Environment.NewLine
        Using frm As New frm_Notizen
            With frm
                .BS_Vorgangnotizen.DataSource = LagerDB
                'Selektierter Eintrag der eine Notiz bekommen soll
                .EingangIDTextBox.Text = BS_Eingang_TypRow.ID.ToString
                .VorgangTextBox.Text = _
                  BS_Eingang_TypRow.Bestelldatum.ToShortDateString
                .ArtikelTextBox.Text = BS_Eingang_TypRow.Artikel.ToString
                .ArtikelnummerTextBox.Text = _
                  BS_Eingang_TypRow.Artikelnummer.ToString
                .LieferantTextBox.Text = BS_Eingang_TypRow.Lieferant.ToString
                .Notiz_Datum.Text = Now.ToShortDateString
                .UserNameTextBox.Text = BS_Benutzer_TypRow.Benutzername.ToString
                'Notiz schreiben
                .BS_Vorgangnotizen.AddNew()
                .ShowInTaskbar = True
                .BringToFront()
                .TopMost = True
                .ShowDialog(Me)
                'nachdem frm geschlossen wurde:
                If .ret_Wert = True Then
 
                    'speichern und in DGV kenntlich machen...
 
                    Me.Validate()
                    BS_Vorgangnotizen.EndEdit()
 
                    dict_BS_Pos.Clear()
                    dict_BS_Pos.Add(BS_Vorgangnotizen, _
                      BS_Vorgangnotizen.Position)
                    mod_Saver.SaveDataset(Me.LagerDB, dict_BS_Pos, _
                    VorgangnotizenTableAdapter.Adapter)
                End If
            End With
        End Using
 
        Me.Show()
    End Sub