Dim db As DAO.Database
Dim rst As Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("tblPath")
rst.MoveFirst
rst.FindFirst "[PathName] = 'Base'"
rst.Edit
rst.Fields("PathName") = "Base"
rst.Fields("PathValue") = "D:\DataBase"
rst.Fields("PathNote") = "Путь к базе данных программы"
rst.Update
rst.Close

Собственно на строке rst.FindFirst "[PathName] = 'Base'" отладка и останавливается с ошибкой Операция не поддерживается для объектов данного типа. Что не так?

http://www.sql.ru/forum/1201124/operaciya-ne-podderzhivaetsya-dlya-obektov-dannogo-tipa