sql = "UPDATE tblpayment SET ADDONS=SPRICE-(SELECT RPRICE FROM `tblreservation` r WHERE TRANSNUM= & dtgList.CurrentRow.Cells(0).Value)" WHERE TRANSNUM=