1:
_sSql = "Update [DeviceMeters] Set [GearWeelBefore] = '" & Gvalue1 & "', [GearWeelAfter]='" & Gvalue2 & "' Where [DeviceID] = '" & dID & "'"