اخي الكريم شيء طبيعي ان لا يقوم بالكتابة انظر الى اول سطر في الكود
If rs.State = adStateOpen Then rs.Close
انت تقوم باغلاق الاتصال بقاعدة البيانات في اول جملة ولا تعيد الاتصال لكي تتم عملية الكتابة مما يؤدي بالتاكيد الى ظهور خطا اثناء التنفيذ
وايضا السبب الاخر الذي ذكره اخي ابو عمر وهو وجود rs.Update في بداية الكود
لذلد ارفق المثال كامل لكي يتم التعديل عليه
يعطيك العافية
If rs.State = adStateOpen Then rs.Close
انت تقوم باغلاق الاتصال بقاعدة البيانات في اول جملة ولا تعيد الاتصال لكي تتم عملية الكتابة مما يؤدي بالتاكيد الى ظهور خطا اثناء التنفيذ
وايضا السبب الاخر الذي ذكره اخي ابو عمر وهو وجود rs.Update في بداية الكود
لذلد ارفق المثال كامل لكي يتم التعديل عليه
يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))
