vb ไม่ อัพเดต ข้อมูล

โค้ดที่เขียนใว้
1.https://www.img.in.th/image/rD95lq
2.https://www.img.in.th/image/rD9P9r
คือผมอยากรู้ว่า ทำไมไม่อัพเดตข้อมูล
ก่อนหน้านี้ผมลอง bug และทดสอบ query ใน sql มันก็ไม่มีปัญหาอะไร
โปรเเกรมที่ทดสอบเข้า loop if เเต่ ไม่ update ค่าลง db
ขอคำแนะนำหน่อยครับ