[سوال] یه کد نوشتم جواب نمی دهد کسی می دونه مشکلش چیه؟

[arezoobandar]

سلام
من یه فرم جستجو کتاب دارم که توش کتاب مورد نظرم رو جستجو می کنم وبعد تعداد درخواستی از کتاب رو وارد می کنم و با کلیک روی یک دکمه اون رو به سبد خرید اضافه می کنم شما فرض کنید 5 تا ویژوال بیسیک با 2 تا دلفی می خوام
حالا تو سبد خرید وقتی رو دکمه پرداخت کلیک می کنم باید تعداد درخواستی از هر کتاب از تعداد کلی اون کتاب در جدول کتاب ها کم شود
پایگاه داده ام sql server
این کد رو نوشتم جواب نمی دهد کسی میتونه به من کمک کنه؟؟؟
یا اگر شما روش دیگه ای بلدید بهم بگید!

Dim b As String
Dim a As Integer
While ado.Recordset.EOF = False
b = ado.Recordset!Name
a = ado.Recordset!Tedad Darkhadti
Adodc1.RecordSource = "SELECT * FROM books where
";('"+name='" + b)
Adodc1.Refresh
Adodc1.Recordset.Fields("tedad") = Adodc1.Recordset.Fields("tedad") - a
Adodc1.Recordset.Update
ado.Recordset.MoveNext
Wend