أين الخطاء في كود الترقيم التالي ؟

ايها السادة الكرام

السلام عليكم ورحمة وبركاته

أين الخطاء في كود الترقيم التالي ؟

Dim RSNo As DAO.Recordset
	Set RSNo = db.OpenRecordset("SELECT [Access] FROM syb1")
	If RSNo.RecordCount <= 0 Then
    	Label13.Caption = "109000101": Exit Sub
	Else
    	RSNo.MoveLast
    	Label13.Caption = Str(RSNo("Access").Value + 1)
    	Exit Sub
	End If
End If

---------------------------------------------------------------------------

المشكله في هذا الكود انه بعد ترقيم اكثر من سجل في قاعدة البيانات وبعدها لا يعمل ؟؟

علماً انني استخدم تقنية DAO في برمجة برامجي

نامل من الله ثم من الجميع المساعدة

والله يحفظكم ويرعاكم