سوال در مورد یه مشکل تو ویژوال بیسیک 6

با سلام خدمت دوستان عزيز
من برای ارتباط با دیتا بیس ازdata استفاده کردم
حالا برای جستجو لازم دارم که در حال جستجو چندسن بار دیتا بیس رو خالی کنم
از دستور زیر استفاده می کنم ولی به خاطر سرعت زیاد پردازس اطلاعات، سیستم نمیتونه تعداد رکوردهای توی دیتا بیس رو سریع بر گردونه
یعنی وقتی دارم برنامه رو چک می کنم data1.recordset.recordcount رو برابر 1 در نظر میگیره در صورتی که خیلی بیشتره و بعد از چند ثانیه اگه دوباره موس رو روی data1.recordset.recordcount بزارم عدد درست رو نشون میده بخاطر همین موضوع نمیتونه دیتا بیس رو کامل پاک کنه
به نظر شما چجوری میتونم این مشکل رو حل کنم؟
با loop هم جواب نمیده .با msgbox این مشکل حل میشه ولی خوب زیاد هم نمیشه تو برنامه رواعصاب کاربر راه رفت!!!
:19:

از ADOData Control و Jet3.6 استفاده کن باهاش می تونی به کمک یه حلقه ی FOR تمام رکورد پاک کنی