Try
            If Neu = True Then
                Dim dr As DataRow = clsMain.ds.Tables("hersteller").NewRow
                dr("ID_Hersteller") = NeuID()
                dr("Hersteller") = txtbName.Text
                dr("HerstellerNr") = txtbNummer.Text
                dr("Kommentar") = txtbKommentar.Text
                dr("Angelegt") = DateTime.Now
                dr("AngelegtVon") = 123
                dr("AenderungVon") = 123
                clsMain.ds.Tables("hersteller").Rows.Add(dr)
            Else
                _Datensatz.Item("Hersteller") = txtbName.Text
                _Datensatz.Item("HerstellerNr") = txtbNummer.Text
                _Datensatz.Item("Kommentar") = txtbKommentar.Text
            End If
        Catch ex As Exception
            Errorhandler("Es wurde ein Fehler beim Anlegen/Ändern des" & _
              "Datensatzes festgestellt", ex)
        End Try