كود بحث بسرررعة أرجووكم

أرجوووكم بدي كود البحث عن رقم ملف وتاريخ يوم عن طريق الADO.NETأرجوووكم أنا مرررة مستعجلة
لأن عندي مشروع ولازم خلصة آخر الشهر
لا تتأخروا علي

السلام عليكم
هذا كود VB6.0
me.data1.recordset.movelast
me.data1.recordset.moveFirst
n=data1.recordset.recordcount

for i=0 to n-1
if text1.text=me.data1.recordset.fiels(0) then exit sub
'fields(0) according to the record 0is the first feild lets say FirstName
'(1) the next one and so on
me.data1.recordset.movenext
next i
msgbox "Not Valid Entry",vbcritical,"Error"
end sub


for more information email me at abedzaben198@hotmail.com