[ تمت الإجابة ]أرجو تصحيح الخطأ الموجود في هذا المشروع

الخطأ بأنك استخدمت الفنكشن OPen في تمرير provider

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

cn.Provider = "Microsoft.JET.OLEDB.4.0;Jet OLEDB:Database Password=2000;"
cn.Open X

تحياتي

الكود بعد التعديل

Private Sub Form_activate()
'On Error Resume Next
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
X = App.Path & "\db.mdb"
img = App.Path & "\pics\"
cn.Provider = "Microsoft.JET.OLEDB.4.0;Jet OLEDB:Database Password=2000;"
cn.Open X
rs.Open "[indx] ", cn, adOpenDynamic, adLockOptimistic
Call clear
l2.Visible = False
End Sub

السلام عليكم

شكراً لكل من ساهم في الرد على هذا الموضوع :lol: :)