خطا بيظهر عن عرض السجل الحالي

[السلام عليكم

انا عملت برنامج بالفجول بيسك وقاعدة بيانات سيكول 2000 ولكن عند اضافة سجل يتم حفظ السجل ولكن بعدها علي طول بيظهر هذا الاعتراض في الكود بتاع عرض السجل الحالي الكود هو

Dim iPos As Integer
Dim iCount As Integer
addcustomer.Label16.Caption = ""
iPos = rs.AbsolutePosition
iCount = rs.RecordCount
If iCount < 1 Then
addcustomer.Label16.Caption = "لايوجد بيانات عملاء مسجلة في قاعدة البيانات"
Else
addcustomer.Label16.Caption = "السجل " & iPos & " من " & iCount & "سجل / سجلات مسجلة "

الخطا بيقف علي

iPos = rs.AbsolutePosition

ودي صورة الخطا