若ab均为数字类型应为:
"update c set a = a+" & Text4.Text & " where b=" & lab.caption 
你试试。