Здравствуйте, Делаю код на событие "AfterUpdate" списка формы Аксесса:

Dim Reserve As DAO.Recordset
Set Reserve = CurrentProject.Connection.Execute(" SELECT СтатьиВедомости.ЧасовПлан" _
& " FROM  СтатьиВедомости" _
& " WHERE (СтатьиВедомости.Объект='" & Me.Объект.Value & "') AND (СтатьиВедомости.Статья=21)")

Структура таблицы, откуда хочу выбрать данные:Код-счетчик,ключевое,Объект - строка,Статья - целое число;ЧасовПлан-одинарное с плавающей точкой; Ведомость -целое число.
В списке на форме ,для которого делаю обработчик "AfterUpdate", содержит шифры объектов. После обновления списка вываливается ошибка: Run-time error-13:Type mismatch в чем ошибка? я этот запрос строил в конструкторе и запускал - все работает, а тут - нет....

http://www.sql.ru/forum/1104728/oshibka-type-mismatch-pri-vypolnenii-zaprosa-na-vba