Com.Commandtext = "update Personels set fieldname = " & @x & " where ID_Per = " & @ID_Per
where fieldname is the column name you need to update, x is the value to enter and ID_Per is the ID of the record you need to modify
if x is numeric use " & cstr(@x) & "