Try
            Me.Validate()
            Me.TblBericht5BindingSource1.EndEdit()
            Me.Tbl_Bericht5TableAdapter.Update( _
              Me.Projektdatenbank_v1DataSet.Tbl_Bericht5)
        Catch ex As Exception
            MsgBox("Speichern fehlgeschlagen")
        End Try

Daneil S.