[عبد العزيز البسكري]

بسم الله الرحمن الرّحيم

مبارك و سعيد يومكم أعزّائي و إخواني و أحبّتي في الله

فضل و كرم منك لا أمر .. إذا كان بالإمكان كيفيّة إضافة كلمة المرور لهذا الجزء من الكود ..و كلمة المرور لقاعدة البيانات هي 123456 :

كود :

Private Sub Form_Load()
FileSource = App.Path & "\DATABASE.mdb"
sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= " & FileSource & ""
Adodc1.ConnectionString = sConnect
Adodc1.RecordSource = "Select * From [LOCALE] order by الرقم"
Adodc1.Refresh
End Sub

حاولت كثيرًا لكنّها تظهر رسالة الخطأ هذه :

مع الإشارة إلى هذا السّطر :

Adodc1.Refresh

بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء

فائق الإحترامات