(17/10/2019, 23:40)berduş yazdı: dao. ekleyerek dener misiniz, database ve recordsetin başına?
yanılmıyorsam güncel sürümlerde hem dao hem de ado olduğundan başına hangisi olduğunu belirten tanımlayıcı getirilmeli

Dim db As dao.Database

Dim rs As dao.Recordset

Hatayı bidaha vermedi. 
Fakat aşağı yukarı sıralarken tek tek yapacağına bazen 2 bazen de tek aşağı yukarı götürüyor.
En alttaki kaydı da taşımıyor.