مساعدة في ربط الادو

السلام عليكم

رسالة الخطأ مشوضحة (الصورة غير مرئية ) ياريت لو تقدر تكتب الرسالة حتى أتمكن من مساعدتك ان شاء الله

شكرا لك يا اخي على سرعة ردك...

الرسالة تقول

RUN -TIME '91'

object varible or with block varible not set

طيب ممكن تستخدم هذا الكود

dim db As New ADODB.connection
db.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Ali.mdb;Persist Security Info=False"

db.open

Dim Rs As New ADODB.Recordset
rs.open "[Table1]",db , adOpenStatic, adLockOptimistic

شكرا لك اخي الكريم ععلى تجاوبك معاي....

جربت الكود وانحلت المشكله.....

ولك مني جزيل الشكر ووافرالعرفان والله يوفقك دنيا واخره على تعبك معايه ولك مني جزيل الشكر.... ;)

:D :D :D :P :D :D :D