Здравствуйте!
Ситуация такова.
Экспериментировал с запросами и сообщениями в VBA.
Таблица:
ID_OK_PK - Счетчик
Kompitencia - Текстовый
OK_PK - Текстовый
Opisanie - Текстовый

Код на кнопку:
Dim MyTable_SQL
Dim MyTable As Object
MyTable_SQL = ""
MyTable_SQL = MyTable_SQL + "SELECT OK_PK.ID_OK_PK, OK_PK.Kompitencia, OK_PK.OK_PK, OK_PK.Opisanie "
MyTable_SQL = MyTable_SQL + " FROM OK_PK WHERE (((OK_PK.ID_OK_PK)=1));"
Set MyTable = CurrentDb.openrecordset(MyTable_SQL)

MsgBox (CStr(Round(MyTable.Fields(0))) + " ;")

При выводе 0 и 2 столбца ошибок нет.
Но при выводе 1 и 3 выдаётся ошибка "type mismatch"

Всяко-разно коверкал и таблицу и вывод сообщения но реакции нет ...
В чём секрет?

http://www.sql.ru/forum/1192793/access-vba-vyvod-soobshheniya