مشکل در UPDATE دیتابیس

[majid08 266]

سلام

من یه عدد دارم که مرتب عوض میشه

میخام عدد که عوض میشه تو دیتابیس اپدیت شه و عوض شه

یه کد نوشتم ولی هر وقت عوش میشه دیتابیس رو تغییر میده به 1

 میخام اون کد adad رو بزارم جای اون عدد که نوشتم 1  که ارور میده

Dim cur As Cursor
cur = Main.MyBank.ExecQuery("SELECT * FROM tbl1  " )
cur.Position = Main.fasl1 - 1
				
adad = cur.getint("star")
adad = adad + 1
		
Main.MyBank.ExecNonQuery("UPDATE tbl1 SET star=1 WHERE id=" & Main.Fasl1)
		

[vahidh16 160]

Dim cur As Cursor

cur = Main.MyBank.ExecQuery("SELECT * FROM tbl1 " )

cur.Position = Main.fasl1 - 1

adad = cur.getint("star")

adad = adad + 1

Main.MyBank.ExecNonQuery("UPDATE tbl1 SET star='"&adad&"' WHERE id=" & Main.Fasl1)