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

[A_D]

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

[abed_11]

السلام عليكم
هذا كود 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