Программирование на Visual Basic

02. Использование ALTER COLUMN в запросе SQL решит эту проблему

Private Sub butExecute_Click()
Dim dbs As Database
    On Error GoTo 999
        CurrentDb.Execute _
           "ALTER TABLE [Пример 01] ALTER COLUMN [Описание] TEXT(" _
            Me.fldSize  ")"
        MsgBox "Размер поля в таблице 'Примеры 01': "  vbCrLf  _
        Me.fldSize  " символов(а)", vbInformation, "Изменение поля"
    Exit Sub
999:
    MsgBox Err.Description, vbCritical, "Изменение поля"
    Err.Clear
End Sub