funtion  [val,str,frm] = dbvalue(ident,val)

