-2147201020 (80045004): [SQL-DMO]Modifying existing table columns, or inserting new ones prior to the end of the table, is not supported.
Use ExecuteImmediate to execute the ALTER TABLE ALTER COLUMN. For example:
Dim server1 As New SQLDMO.SQLServerDim db1 As SQLDMO.Databaseserver1.Connect "(local)", "sa", ""Set db1 = server1.Databases("pubs")db1.ExecuteImmediate ("Alter table publishers Alter column city varchar(50) ")server1.DisConnect
Microsoft has confirmed this to be a problem in SQL Server 7.0. This problem has been corrected in U.S. Service Pack 2 for Microsoft SQL Server 7.0. For more information, click the following article number to view the article in the Microsoft Knowledge Base:
254561 INF: How to Obtain Service Pack 2 for Microsoft SQL Server 7.0 and Microsoft Data Engine (MSDE) 1.0
For more information, contact your primary support provider.