Как в модуле Access присоединить таблицу? - VB

Формулировка задачи:

Пытаюсь в модуле Access присоединить таблицу (текстовый файл). Пишу примерно следующее:

Dim dbsTemp As Database
Dim tdfLinked As TableDef
 
Set dbsTemp = CurrentDb
Set tdfLinked = dbsTemp.CreateTableDef(strTable)
tdfLinked.Connect = strConnect
tdfLinked.SourceTableName = strSourceTable
dbsTemp.TableDefs.Append tdfLinked

Здесь strTable и strSourceTable - параметры, которые я задаю соотв. образом. А проблема следующая: при прилинковке этого файла как таблицы Access типы полей проставляются автоматически и не всегда правильно. Поменять тип поля, например, на текстовое:

tdfLinked.Fields(1).Type = dbText

не удаётся Можно как-нибудь во время присоединения файла прописать типы полей присоединённой таблицы? Чтобы я мог сам задать, что в присоединённой таблице первое поле у меня Integer, второе - Text и т.д.

Решение задачи: «Как в модуле Access присоединить таблицу?»

textual
                            Листинг программы 
                        
                            DoCmd.TransferText acLinkDelim, "Имя сохраненной спецификации связи", ИмяПрисоединеннойТаблицы, ПутьКФайлу, False