Win 98, A97

'Сначала создаём свойство "ColumnWidth" с помощью этой Sub

Public Sub SetFieldProperty(fldField As Field, strPropertyName As String, _
intPropertyType As Integer, varPropertyValue As Variant)
' Задает значение свойства поля без генерирования кода невосстанавливаемой ошибки выполнения.

Const conErrPropertyNotFound = 3270
Dim prpProperty As Property
On Error Resume Next ' Не перехватывать ошибки.
fldField.Properties(strPropertyName) = varPropertyValue
If Err <> 0 Then ' Ошибка при задании значения.
If Err <> conErrPropertyNotFound Then
On Error GoTo 0
MsgBox "Не удается задать свойство '" & strPropertyName _
& "' для поля '" & fldField.name & "'", 48, "SetFieldProperty"
Else
On Error GoTo 0

Set prpProperty = fldField.CreateProperty(strPropertyName, _
intPropertyType, varPropertyValue)
fldField.Properties.Append prpProperty
End If
End If
End Sub

'-----------------------------------------------------------------
'Пример вызова

Set tdf = Db.TableDefs(strTmpFileName)

' Ширина колонки в твипах
' 1см = 567твипов.

' Установить ширину первой колонки
Set fld = tdf.Fields(0)
SetFieldProperty fld, "ColumnWidth", dbInteger, 2530