خوب این راحته شما می تونید برای هر شماره یه سلکت بنویسی و وقتی پیداش کردی اونو تو یه جا ذخیره کنی بری بعدی رو بنویسی اوکی کدش هم اینه
rst.open "select * from tbl1 "
dim a (1 to rst.recordcount) as string
i=1
while not (rst.eof)
dim a(i)=str(rst.filde("id"))
i=i+1
loop
for i=1 to rst.recordcont
if text1.text=a(i) then print "شماره رکورد در جدول "& i
next
دوست عزیز می تونی حلقه آخر رو به تعداد مورد نظر تو کدت استفاده کنی
در کل این مدلی که من نوشتم خیلی ضایع بود آخه داشتم تو یه جای دیگه کار می کردم که ذهنم مشغول بود نتومستم الگوریتم بهینه تری به شما معرفی کنم .