[Taha Okla]

الكود التالي شغال مع كل اصدارات اوفيس :

كود :

       Dim cn As New OleDb.OleDbConnection
       cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\UsersData.mdb;Jet OLEDB:Database Password=,"
       cn.Open()

والكود التالي شغال مع الاصدارات 2016 - 2019 :

كود :

       Dim cn As New OleDb.OleDbConnection
       cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.16.0;Data Source=" & Application.StartupPath & "\UsersData.mdb;Jet OLEDB:Database Password=,"
       cn.Open()

واذا ما اشتغل معاك -
عيد تثبيت الفيجول استديو من جديد..
.