Добавление поля в существующую таблицу существующей БД. Хочу добавить не в конец а "между" - VB

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

Т.е. если прога обнаружила при инсталляции что БД "старой" версии (тупо по нехватке одного-двух полей в одной-двух таблицах), то она хочет базу проапгрейдить до "новой" версии.
1) добавить новые поля (в моем случае МЕМО)
2) проконвертировать пару-тройку полей String -> Memo
>1) добавить новые поля (в моем случае МЕМО)
На скорую руку накатал (работает):

fnFieldAdd(strTableName  , strFieldName  , lngFieldType  , _
  Optional lngFieldSize   = , Optional bFieldNullable   = True, _
  Optional bFieldZeroLength   = True, Optional bFieldUNICODEStrings   = False)

     bResult  
     adoxCat 
     adoxTbl 
     adoxCol 
    
    bResult = False

     adoxCat = CreateObject() 
    
    adoxCat.ActiveConnection = adoConn
    
      adoxTbl  adoxCat.Tables
         adoxTbl. =   adoxTbl. =  
             adoxTbl. = strTableName 
                  adoxCol  adoxTbl.Columns
                     adoxCol. = strFieldName 
                        bResult = True

                 adoxCol
                 bResult = False  
                     adoxCol = CreateObject() 
                     adoxCol
                        .ParentCatalog = adoxCat
                        . = strFieldName
                        . = lngFieldType  
                         lngFieldType = adVarWChar  .DefinedSize = lngFieldSize
                        .Properties() = bFieldNullable 
                        .Properties().Value = bFieldZeroLength 
                        .Properties().Value = bFieldUNICODEStrings 
                     
                    adoxTbl.Columns.Append adoxCol, lngFieldType

     adoxTbl
    
     adoxTbl = 
     adoxCol = 
 

Ключевой вопрос: поле естественно добавляется в конец. Как его добавить "После поля "ПолеА", т.е. посередке.
Роли это конечно для работоспособности проги наверно не играет, но думается мне что это не прибамбас Access-а, люблю таки порядок.

>2) проконвертировать пару-тройку полей String -> Memo
Пока не делал, но полагаю в цикле приведенной ф-ции

adoxCol  adoxTbl.Columns
                     adoxCol. = strFieldName 

установить
adoxCol.Type=adLongVarWChar
Так?

Решение задачи: «Добавление поля в существующую таблицу существующей БД. Хочу добавить не в конец а "между"»

textual
                            Листинг программы 
                        

                            <font color="blue">Public</font> <font color="blue">Sub</font> Modify_Table()
<font color="blue">Dim</font> strSQL <font color="blue">As</font> <font color="blue">String</font>
<font color="blue">Dim</font> cnn <font color="blue">As</font> ADODB.Connection

<font color="blue">Set</font> cnn = CurrentProject.Connection
<font color="#00AA00">'добавление поля</font>
<font color="#00AA00">'strSQL = <font color="teal">"ALTER TABLE [Таблица1] ADD COLUMN [Field1] TEXT(255);"</font></font>
<font color="#00AA00">'cnn.Execute strSQL</font>
<font color="#00AA00">'конвертация типа с сохранением данных в Memo</font>
strSQL = <font color="teal">"ALTER TABLE [Таблица1] ALTER COLUMN [Field1] LONGTEXT;"</font>
cnn.Execute strSQL
<font color="#00AA00">''удаление поля</font>
<font color="#00AA00">'strSQL = <font color="teal">"ALTER TABLE [Таблица1] DROP COLUMN [Field1];"</font></font>
<font color="#00AA00">'cnn.Execute strSQL</font>
<font color="blue">Set</font> cnn = <font color="blue">Nothing</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        