Private cn As Object
Private rs As Object

Private Const cs As String = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=$1;Pwd=123000" ' $1 сделал для удобства подключения к разным БД
Private Const fn As String = "\\serv11\Public\Егоров\123\123.accdb" ' файлик с бд лежит в локалке

Function ADODB_ConnectedODBC() As Boolean
    Set cn = CreateObject("ADODB.Connection")
    cn.CursorLocation = 3 ' adUseClient
    
    On Error GoTo err_not_connection
    cn.Open Replace$(cs, "$1", fn) ' проблема вот здесь и сдается мне, что она не в Replace, а именно в кривом срабатывании метода Open
    ' На некоторых машинах код работает идеально на 100% (12 машин), а на других (2 машины) этот метод вызывает ошибку и функция ADODB_ConnectedODBC возвращает false.
    ' Причем вероятность ошибки не 100%, а примерно 80%.
    ' Т.е., вызывая к примеру что-то вида: q "insert into `ppl` (`name`) values ('Бобров')", можно получить как false так и true.
    ' Я закономерности не поймал. Сидишь тыкаешь, тыкаешь. Один раз из пяти проканает, остальные будут отваливаться.

    ADODB_ConnectedODBC = True
    Exit Function

err_not_connection:
    ADODB_ConnectedODBC = False
End Function

Function q(sql$)
	If Not ADODB_ConnectedODBC Then Exit Sub
	cn.Execute sql
end Function