Customize ActiveX in Excel?

Question

Visual Basic

Kind time of the day, habrets, tell me, please. There is a connection from Excel to Access.
On the computer on which the VBA code was written, everything works, on others it gives an error

mistake

the code

Sub Получить_данные_о_программе()
    Dim tbl As Recordset
    Dim SQLr As String
    Dim dbs As Database
    Dim lists_count As Long
    
    ActiveSheet.Protect Password:="123698745", UserInterfaceOnly:=True
    
    Sheets("Главная панель").Rows("17:100000").Delete shift:=xlUp
    
    lists_count = Int(Sheets("Главная панель").Range("A1").Text)
    
    Set dbs = DAO.OpenDatabase("\\srv02\_tp\Shilov\BD\db.mdb")
    
    SQLr = "SELECT f_name FROM win32_applications WHERE computer_name = '" & Sheets("Данные").Cells(lists_count + 1, 8).Text & "'"
    
    Set tbl = dbs.OpenRecordset(SQLr)
    
    Sheets("Главная панель").Cells(17, 1).CopyFromRecordset tbl
    tbl.Close
    
    Set tbl = Nothing
    
    dbs.Close
    
    Set dbs = Nothing
End Sub

Answer 1

I will assume that on other PCs there is a 64-bit version of MS Office, and on your x86. There are no DAO libraries for x64.

Answer 2

Is the "Microsoft office xx database engine object library " library connected?

Answer 3

I think the file \\srv02\_tp\Shilov\BD\db.mdb is not available from other computers.