Здравствуйте.
Тескт в модуле формы:

Dim strSQL As String, ss As String

ss = "hgg"  ' Вариант строки 1
ss = "123"  ' Вариант строки 2 

strSQL = "UPDATE tbl1 SET tbl1.txt = " & """hgg""" & " WHERE (((tbl1.COD)=2));" ' Работает
strSQL = "UPDATE tbl1 SET tbl1.txt = " & ss & " WHERE (((tbl1.COD)=2));"  ' Работает только с вариантом 2

DoCmd.RunSQL strSQL 

При буквенных символах запрос распознает строку как параметр и требует его значение (Аксесс 97 и Аксесс 2010).
Как записать буквы?

http://www.sql.ru/forum/1295036/update-iz-vba-v-tekstovoe-pole-ne-zapisyvaet-bukvennuu-stroku-no-zapisyvaet-cifrovuu