چرا بعضی مواقع از آخر add نمیشه

[vahab_vb]

من یه دیتابیس با access روی سایتم دارم که با asp کار میکنه
با هربار ارسال اطلاعات ، باید رکورد جدیدی ساخته شده و این عمل تا زمانیکه تعداد رکوردها مثلا از 8 عدد به بالا رفت ادامه پیدا کنه و محض بالا رفتن از 8 عدد، تمام رکوردها رو اول پاک کرده ، بانک رو بسته دوباره باز میکنه و بعد رکورد جدید رو add میکنه
مسئله اینجاست که بعضی مواقع رکورد جدیدی که اضافه میشه بعنوان آخرین رکورد ثبت نمیشه که این موارد شانسی اتفاق میفته ولی همیشه هست.
نمیدونم مشکل از چیه ؟



Dim OBJCN,OBJRS
Dim MSCOUNT
MSCOUNT=0
Bank_Openner "../_db/Data.mdb","R","CHAT"
Do While Not OBJRS.EOF
MSCOUNT = MSCOUNT+1
OBJRS.MoveNext
Loop
Bank_Closer()


Bank_Openner "../_db/Data.mdb","W","CHAT"
If MSCOUNT > 8 Then
Do While Not OBJRS.EOF
TTT=OBJRS("CHAT-IP")
OBJRS.Delete
OBJRS.MoveNext
Loop
End If

OBJRS.AddNew
OBJRS("CHAT-IP")=USER_IP
If THE_RIGHT="y" then OBJRS("RIGHT-ALIGN")=True Else OBJRS("RIGHT-ALIGN")=False
OBJRS.Update
Bank_Closer()


Bank_Openner "../_db/Data.mdb","R","CHAT"
Do While Not OBJRS.EOF
iic1 = OBJRS("CHAT-IP")
OBJRS.MoveNext
Loop

Bank_Closer()