Me.Validate()
        BindingSource.EndEdit()
 
        dict_BS_Pos.Clear()
        dict_BS_Pos.Add(BindingSource, BindingSource.Position)
        dict_BS_Pos.Add(BS_SD_Dokumente, BS_SD_Dokumente.Position)
        mod_Saver.SaveDataset(Me.LagerDB, dict_BS_Pos, _
          ArtikelTableAdapter.Adapter, DokumenteTableAdapter.Adapter)

 Private Sub BindingControls()
        'Datenbindungen an Controls 
        ' ---------------------------------------------------------------------
        ' ----------------------------------
        DSIDTextBox.DataBindings.Add(New Binding("Text", BindingSource, "ID", _
          False, DataSourceUpdateMode.OnPropertyChanged))
        ArtikelnummerTextBox.DataBindings.Add(New Binding("Text", _
        BindingSource, "Artikelnummer", False, _
        DataSourceUpdateMode.OnPropertyChanged))
        ArtikelbezeichnungTextBox.DataBindings.Add(New Binding("Text", _
        BindingSource, "Artikelbezeichnung", False, _
        DataSourceUpdateMode.OnPropertyChanged))
        MAXIMOTextBox.DataBindings.Add(New Binding("Text", BindingSource, _
        "MAXIMO", False, DataSourceUpdateMode.OnPropertyChanged))
        chb_Maximo.DataBindings.Add(New Binding("CheckState", BindingSource, _
        "erledigt", True, DataSourceUpdateMode.OnPropertyChanged))
        'Datenbindungen an Controls 
        ' ---------------------------------------------------------------------
        ' ----------------------------------
    End Sub