[asto]

تم الحل و شكرا لاهتمامكم

و الكود هو

Rs1.Move p
z = p
Do Until z = pp


z = z + 1
Rs1.MoveNext
If Rs1.EOF Then Exit Do
Loop

حيث p هو رقم سجل البداية و pp هو رقم سجل النهاية