طلب مستعجل لمن يملك الخبره في vb

السلام عليكم يااخواني

لوسمحتو من عنده معرفة الكود الخاص بعدد السجلات عن طريق text1.text
يعمل على قرائة عدد السجلات مثل عداد الاكسس
وعند اضافة عنصر يقوم تلقائيآ باضافة سجل جديد له .
ولكم جزيل الشكر.
اخوكم المهندس/ خالد

بسيطة....

sql="select * from tb"
data1.recordsource=sql
data1.refresh
if data1.recordset.recordcount <>0 then
data1.recordset.movelast
text1.text=data1.recordset.recordcount+1
else
text1.text="1"
end if

إذا الأخ hassansweet ما جاوبك صح ، إشرحلي قصدق لو سمحت عشان أجاوبك

شكرآ لكم
بس عندي سئوال لك ياأخي hassansweet استخدمت الdata1
هل هذه الداتاء مرتبطه بلاكسس ؟ ام ليس لها علاقه بلاكسس؟ لوسمحت اشرحها لي اكون شاكر لك جدآ....