Dim neuerBericht As DataRow
            neuerBericht = DataSet_Unfallbericht.Tables( _
              "t_Unfallbericht").NewRow()
            With neuerBericht
 
                .Item("lfd_Nummer") = Tex_Schadensnummer.Text
                .Item("Datum") = Dat_Schadensdatum.Text
                .Item("Fahrer") = Com_UnfallFahrer.Text
                .Item("KFZ") = Com_UnfallKFZ.Text
 
            End With
            DataSet_Unfallbericht.Tables("t_Unfallbericht").Rows.Add( _
              neuerBericht)
            Adapter_Unfallbericht.Update(DataSet_Unfallbericht, _
            "t_Unfallbericht")