Issue to open file

Peter_1985 1,891 Reputation points
2022-02-09T06:39:36.237+00:00

Hi,
Can you help to issue below
172446-1c.png
due to the last line in the following 

F1 = "J:\ZIM A4 IT Site\A4 Projects\SO Number Creator\Index\db1.accdb"  
Dim Adb As Object: Set Adb = CreateObject("Access.Application")  
'Call Adb.OpenCurrentDatabase(F1)  
Adb.Visible = False  
  
Dim db As DAO.Database  
  
Set db = DBEngine(0).OpenDatabase(F1)
Office Development
Office Development
Office: A suite of Microsoft productivity software that supports common business tasks, including word processing, email, presentations, and data management and analysis.Development: The process of researching, productizing, and refining new or existing technologies.
2,162 questions
Access Development
Access Development
Access: A family of Microsoft relational database management systems designed for ease of use.Development: The process of researching, productizing, and refining new or existing technologies.
755 questions