Problema con ALTER TABLE

[Adler]

Hola

No lo recuerdo pero creo no se puede usar Alter Table en Access.

EDITO: Se me ha ocurrido esto

Código asp:

con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("./tubd.mdb")&";"
 
' Nombre de la tabla
tabla = "xxx" 
 
' Nombre de la columna
actual_columna = "xxx"
nueva_columna = "yyy"
 
set conn = CreateObject("ADODB.Connection") 
conn.open con
set adox = CreateObject("ADOX.Catalog") 
adox.ActiveConnection = conn 
 
' Renombra la columna
adox.Tables(tabla).Columns(actual_columna).Name = nueva_columna 
adox.Tables.Refresh 
 
Set adox = nothing 
conn.close
Set conn = nothing
 

Suerte