Dim SqlStr As String ="update TableName set ColumnName="& val(TextKamia.Text-TextOut.Text) & " where ID="& TextID.Text