Dim loc_bre_da As New OleDbDataAdapter("Select * from" + Space(1) + ds.Tables( _
   "BRE").TableName, conn_obj.connectionstring)
                Dim cb As New OleDbCommandBuilder(loc_bre_da)
 
                Dim datensatz As DataRow
                datensatz = ds.Tables("BRE").NewRow()
                datensatz("Patient_ID") = patient_id
                datensatz("Rechnungsjahr") = jahr
                datensatz("BRE") = CDec(Me.TextBox6.Text)
                ds.Tables("BRE").Rows.Add(datensatz)
 
                loc_bre_da.Update(ds.Tables("BRE"))