ник: Гоблин
Спасибо. С функцией что-то не совсем понял что тут к чему, а на счет значений - объявляю переменную, присваиваю ей значение поля3 и вставляю в запрос
Set rst = CurrentDb.OpenRecordset("SELECT [Тип средств].КодТипаСр, [Тип средств].Тип, [Тип средств].ИндексTree " _
& " FROM [Тип средств]WHERE ((([Тип средств].КодТипаСр)<>" & a & " And (([Тип средств].ИндексTree)='r'));")
Как результат значение определяет правильно. На желтом фоне высвечивает 
и пишет, что ошибка синтаксиса имеется.