Как изменить размер существующего поля таблицы ACCESS?

  With ADOQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Text :='ALTER TABLE properconnections ALTER COLUMN D15 TEXT (30)';
    ExecSQL;
  end;

procedure TForm1.ADDColumn(FieldName:string);
var len:string; c:Integer;
begin
  len:=IntToStr(Length(col));
  try
  SQLExec2('ALTER TABLE ProperConnections ADD '+FieldName+' text(100)');
    except on e:Exception do;
  end;
end;

    ADOQuery2.Fields[ADOQuery2.FieldCount-1].DisplayWidth:=Length(FieldName);

SQLExec2('ALTER TABLE properconnections ALTER COLUMN '+
            DBGrid2.Fields[i].FieldName+' TEXT ('+IntToStr(Length(line))+')');

 with ADOQuery1 do
       begin
         SQL.Text := 'SELECT Поле1,  Поле2, Поле3  FROM Таблица';
         open;
     end;

with ADOQuery2 do
    begin
      SQL.Text := 'SELECT Max(Len([Поле1])), Max(Len([Поле2])), Max(Len([Поле3]))  FROM Таблица';
      open;
      for I := 0 to FieldCount - 1 do
      ADOQuery1.Fields.Fields[i].DisplayWidth:= Fields.Fields[i].AsInteger;
  end;