Интересно, что это решение может сломаться, но обходной путь:
Ищу мою базу данных под названием KeyWorks.accdb, которая должна существовать:
Запустите это:
Dim strDataPath As String = GetSetting ("KeyWorks", "dataPath", "01", "") 'получить из реестра
Если не strDataPath.Contains ("KeyWorks.accdb"), то .... и т. Д.
Если моя база данных называется KeyWorksBB.accdb, оператор If найдет это приемлемым и выйдет из оператора if, потому что он действительно нашел KeyWorks и accdb.
Если я окружу квалификатор оператора If одинарными кавычками, например ("KeyWorks.accdb"), теперь он ищет все последовательные символы по порядку и вводит блок If, потому что он не совпадает.