Инструкция INSERT INTO ...

Уважаемые, если можно подскажите коротко, требуется вставить в таблицу одну запись, добавляющую данные в три поля: 1 поле- текущая дата, 2 поле - текстовое значение, 3 поле числовое значение. NM имя таблицы

Вот конструкция

CurrentDb.Execute "INSERT INTO [" & NM & "]([DATECOTIR],[CODVALUT],[VALCOTIR]) VALUES (#" & Format(Date, "dd\/mm\/yyyy") & "#,'" & "EUR" & "'," & 34.123 & ")"

Здесь выдается ошибка о несоответствии количества полей в таблице и данной конструкции запроса. До этого просто ругалась на синтаксис. В общем что-то заблудился я напрочь в решетках даты и апострофов для текстовых значений. Как по уму то сделать?

Спасибо.

debug.print "INSERT INTO [" & NM & "]([DATECOTIR],[CODVALUT],[VALCOTIR]) VALUES 
(#" & Format(Date, "dd\/mm\/yyyy") & "#,'" & "EUR" & "'," & 34.123 & ")"

и курить построитель запросов

34.123

в тексте выглядит как 34,123 - т.е. два целочисленных значения

Поменяйте настройки виндоус для десятичного разделителя.

ALEXIS_22

в тексте выглядит как 34,123 - т.е. два целочисленных значения

Можно заменить на точку:

... Format(Date, "dd\/mm\/yyyy") & "#,'" & "EUR" & "'," & Replace(CStr(34.123),",",".") & ")"