استخدم هذا ..................
Dim i As Integer
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("t1")
While rst.RecordCount >= 10
rst.MoveFirst
For i = 1 To 6
rst.Delete
rst.MoveNext
Next
Wend
rst.Close
MsgBox "تم حذف كل السجلات اللازمة", vbOKOnly, "تنبيه"