ما الخطاء فى هذا الكود ارجو المساعدة ولو حتى فكرة بسيطة

ان بعمل برنامج مرقبة مخزون اريد انقاص الكمية من جول الاصناف وزيادة الكمية فى جدول الاصناف فى حالة اخراجد فاتورة او عملية شراء ان مصمم اربع جداول فى الاكسس الاول الاصناف الثانى الفواتير الثالث الشراء الرابع التفاصيل ورابط الثلاثة جداول بالتفاصيل والرابع هيكون متغير والباقى هيكونوا اساسى ياريت اى احد يساعدنى بقالى اكثر من اربع شهور دايخ على المعلومة ديه والف شكر للمبرمجين؟

Private Sub Form_Load()

Dim db As Database

Dim rs As Recordset

Set db = DBEngine.OpenDatabase(App.Path + "\" + "db2.mdb")

Set rs = db.OpenRecordset("name", dbOpenDynaset)

End Sub

Private Sub Text2_GotFocus()

rs.open "select quinty from name where quinty like "

rs(quinty).Value = rs(quinty) - Val(Text2.Text)

rs.Update

End Sub