Вопрос по созданию динам таблицы

[Narrator]

Всем привет! прошу помочь с небольшой проблемой - создаю динамическую таблицу с новым именем,вот так:

Dim New_Name As String
Dim MyK As ADODB.Command
Set MyK = New ADODB.Command
MyK.ActiveConnection = CurrentProject.Connection
MyS = Trim$(DLookup("ОКУД", "t1", "[Use]=True")) <-здесь смотрю какой ОКУД активен (но это не важно)
New_Name = Original_Name & "_" & Наименование
MyK.CommandText = "SELECT * Into " & New_Name & " FROM " & Original_Name & " WHERE " & True
MyK.Execute

Хочу на выходе получить вот такое имя таблицы(к примеру)-t3_11111_14.12.2001, где 11111 - номер активного ОКУДа, а 14.12.2001 - дата его редакции.
И вот проблема - аксесс не может создать такую таблицу,я так понял он ругается на точки между цифрами,если дату задать так 14дек2001,то все шикарно создается таблица t3_11111_14дек2001, но это не особо, так как форматом такое не запихнуть в название. И покажу как все происходит,как я не бился,все равно ВСЕ знаки препинания превращаются в точки!!!
Вижу два решения:
1)Как-то заставить его убирать точки и склеивать дату
2)писать так - 14дек2001,но не знакю как прописать под это дело формат

Внизу приложил небольшие картинки - как оно все происходит. Буду рад любой помощи.Спасибо большое!

[Abrakadabra]

.................
dmmmyyyy

[Narrator]

меняет в поле, но потом опять меняет на точки получается 15.12.2001

[Narrator]

самбадииии,хэлп))

[Teslenko_EA]

Здавствуйте Narrator.
Вы не оценили совет Abrakadabra, т.к. скорее всего не верно его использовали, поэкспериментируйте с подобной конструкцией:

New_Name = Original_Name & "_" & Наименование & "_" + Format(Date(), "dmmmyyyy")

Евгений.
P.S. не выкладывайте более "картинки", это абсолютно бесполезно, для "демонстрации проблемы" архив c образцом (БД избавленой от излишних данных и сжатой средствами MS Access), будет полезнее.