التعديل على قيمة في قاعدة البيانات دون قرءتها

اخواني الكرام

السلام عليكم

هل يمكن التعديل على قيمة في قاعده البيانات دون قرائتها

بمعني انا عندي قيمه في جدول عباره عن قيمه رقميه ( عدد ) هل يمكن اضافة او تقليل هذه القيمه دون ان اقوم بقرائتها يعني على طول اكتب كود التعديل وهو يقوم بزياده هده القيمه او انقاصها دون ان يعرف ماهي

انا كنت استخدم لحل هذا المشكله كودين اثنين هما كود لقراءه العدد واخر للتعديل عليه

والكود كالتالى :

Dim val As Integer
		sql4 = "select tot from DTBrns where cl=? "
		Dim MyReader As OleDbDataReader
		Dim selectCommand As New OleDbCommand
		selectCommand.Connection = Con
		selectCommand.CommandText = sql4
		With selectCommand.Parameters
			.Add(New OleDbParameter("@cl", OleDbType.Integer))
			.Item("@cl").Value = "ahmad"
		End With
		MyReader = selectCommand.ExecuteReader  ' جملة قراءه للقيمه
		If MyReader.Read Then
			Val = CInt(MyReader.Item("tot"))
		End If
		val = val + 100 ' اضافه  رقم للقيمه الموجوده  
		sql4 = "update DTBrns set tot=? where cl=?"
		Dim updateCommand As New OleDbCommand
		updateCommand.Connection = Con
		updateCommand.CommandText = sql4
		With updateCommand.Parameters
			.Add(New OleDbParameter("@tot", OleDbType.Currency))
			.Add(New OleDbParameter("@cl", OleDbType.Integer))
			.Item("@tot").Value = val
			.Item("@cl").Value = "ahmad"
		End With
		updateCommand.ExecuteNonQuery() 'جملة التعديل على القيمه بعد قراءتها

هنا كنت استخدم جملتين الاوله لمعرفه ما هي القيمه التى موجوده

والثانيه لتغير القيمه بعد اضافه 100 عليها

فهل يمكن اختصار هذا الحدث في جمله واحده فقط وهي جملة التعديل باضافه القيمه لها مباشرا او تقليل القيمه