ASP tip: Rename a table in an Access database

access| Skills | data | Database The following code is a sample code that renames an Access table name with ADOX:
Dim CONN,CONNSTR,OCAT,OTBL
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath ("Data.mdb")
Set ocat=server.createobject ("ADOX. Catalog ")
Ocat.activeconnection = ConnStr

Set otbl = Server.CreateObject ("ADOX. Table ")
Set otbl = ocat.tables ("oldtable") ' Table name to rename: oldtable
Otbl.name = "newtable" ' New table name
Set OCat = Nothing
Set otbl = Nothing