تعديل على المثال التالي للاتصال بقاعدة بيانات 2016

السلام عليكم ورحمة الله وبركاته

اريد التعديل على المثال المرفق لربط البرنامج باكسس 2016

وشكرا



Public DB As New ADODB.Connection
Public RSFILE As New ADODB.Recordset
Public Sub Connect_DB()
If DB.State = adStateOpen Then _
DB.Close

DB.CursorLocation = adUseClient

DB.Provider = "Microsoft.ACE.OLEDB.16.0;"
DB.Open App.Path & "\Data.accdb"

End Sub

New folder (7).rar