كارثة كبيرة جدا إذا كان لا يمكن عرض البيانات

أهلا أخي العزيز

أنا لم اتمكن من ذلك ولكني والحمد لله تمكنت ،،،

فقط قم بإسناد قيمة الخاصيه DataSource للكائن الذي يمثل جدول قاعدة البيانات ،،،

أنظر هنا مثلا /

' تعريف متغير الإتصال بقاعدة البيانات والذي يمثل قاعدة البيانات
Dim db As New ADOBD.Connection
' تعريف متغير يمثل جدول قاعدة البيانات
Dim rs As New ADODB.Recordset

' هذا السطر هو راس الطبخه كلها فإنتبه له
 DB.CursorLocation = adUseClient
' الإتصال بقاعدة البيانات
DB.Provider = "Microsoft.JET.OLEDB.4.0;"
DB.Open App.Path & "\Data.mdb"
'فتح قاعدة البيانات
RS.Open "Table1", DB, adOpenStatic, adLockPessimistic
'هنا نسند قيمة متغير الجدول الى أداة الجدول وننتهي
Set DataGrid1.DataSource = rs

تقبل تحياتي اخي العزيز وان شاء الله تنجح مثلما نجحت أنا ليلة أمس :D

ما زالت المشكلة ولو تم التعديل في الكود والملف المرفق لكان افضل

مع جزيل الشكر