My project written in VB 6.0 under Windows 10 is working perfectly.
When I use the same project on An Apple computer with VB 6.0 under Windows 10, when I run the project it gets stuck without showing any errors.
I put breakpoints in the starting form and I found out that it gets stuck after running the code :
Set rec1 = db1.OpenRecordset("Table2", dbOpenTable)

Before this code, I have the following code in Private Sub Form_Load()

Dim db1 As Database
Dim rec1 As Recordset
On Error Goto HandleErrors
Set db1 = OpenDatabase(App.Path & "\DataFiles\data2.mdb", False, False)
Set rec1 = db1.OpenRecordset("Table2", dbOpenTable)

The references selected are:

Visual Basic For Applications
Visual Basic runtime objects and procedures
Visual Basic objects and procedures
OLE Automation
Microsoft DAO 3.6 Object Library
Microsoft Data Formatting Object Library 6.0 (SP6)
Microsoft Excel 16.0 Object Library
Microsoft Data Binding Collection VB 6.0 (SP4)
Microsoft Data Report Designer 6.0 (SP4)
Microsoft Scripting Runtime
Microsoft Script Host Object Model
Microsoft ActiveX Data Objects 2.8 Library
Microsoft ActiveX Data Objects Recordset 2.8 Library
Microsoft WinHTTP Services, version 5.1
Microsoft XML, v6.0

Any suggestions?