Using frm As New frmAblagedokumente
            With frm
                .BSAblagedokumente.DataSource = AblageDB
                .IDDatarowAblagedetail.Text = CInt( _
                  BS_Ablagedetails_TypRow.ID).ToString
                .tbVorgangDatarow_Ablagedetails.Text = Convert.ToString( _
                BS_Ablagedetails_TypRow.Vorgang)
                .tberfasstamDatarow_Ablagedetails.Text = Convert.ToDateTime( _
                BS_Ablagedetails_TypRow.Erfasstam).ToShortDateString
 
                .ShowInTaskbar = True
                .BringToFront()
                .TopMost = False ' True
                .ShowDialog(Me)
                If .DialogResult = Windows.Forms.DialogResult.OK Then
                    Me.Cursor = Cursors.WaitCursor
                    Update_Abfrage(Tabellenname.Ablagedokumente)
                    'speichern
                    Me.Validate()
                    BSAblagedokumente.EndEdit()
                    dict_BS_Pos.Clear()
                    dict_BS_Pos.Add(BSAblagedokumente, _
                      BSAblagedokumente.Position)
                    mod_Saver.SaveDataset(Me.AblageDB, dict_BS_Pos, _
                    AblagedokumenteTableAdapter.Adapter)
                    Me.Cursor = Cursors.Default
                    MessageBox.Show("Speicher Vorgang abgeschlossen", "Speicher" & _
                      "Vorgang", MessageBoxButtons.OK, _
                      MessageBoxIcon.Information)
                    Me.Show()
                End If
 
            End With
        End Using

  'falls Ordner gelöscht wurde, Ordner erstellen
        create_Dokumente_Ablage_Ordner(AblageID)
 
        fi_Quelle.CopyTo(fi_Ziel.FullName, True)
 
        Dim Dokument As AblageDB.AblagedokumenteRow
        If _overwrite = True Then
 
            'Datensatz suchen, der überschrieben werden soll
            Dim DS = From Eintrag In BSAblagedokumente_Liste
                         Where Eintrag.Dokument.ToLower = fi_Ziel.Name.ToLower
                         Select Eintrag
 
            If DS.Count = 0 Then Return False
            Dim BSpos = BSAblagedokumente_Liste.ToList.IndexOf(DS.First)
 
            Dokument = BSAblagedokumente_TypRow(BSpos)   'hier geht es dann 
            ' nicht weiter
            Dokument.Dokument = fi_Ziel.Name
        Else
            BSAblagedokumente.AddNew()