Hi all,

When trying to change the width of an existing column I get an error. The
help file says that the column width is readonly once the column has been
appended to a table. But as the column already exists it is always appended
to a table object. Here is my code:

Dim X As ADOX.Table
Dim Y As ADOX.Catalog
Dim z As ADOX.Column
Set Y = New ADOX.Catalog
Set Y.ActiveConnection = mcnxMain
Set X = Y.Tables("tblTransaction")
Set z = X.Columns("GLDebit")
z.DefinedSize = 20 '<---- error here

Thanks in advance

Michael Culley