Code to rename an Access database table

The Access database does not support using SQL statements to change the table name or field name, but can be implemented using the ADOX object. CodeAs follows: Copy codeThe Code is as follows: <%
Call renametable ("provider = Microsoft. Jet. oledb.4.0; Data
Source = c: \ example. mdb "," test "," changed ")
Sub renametable (constr, oldname, newname)
'Has to be ole db connection
'Create object and connect to DB...
Dim objadoxdatabase
Set objadoxdatabase = server. Createobject ("ADOX. catalog ")
Objadoxdatabase. activeconnection = constr
'Change the name...
Objadoxdatabase. Tables (oldname). Name = newname
'Clean up...
Set objadoxdatabase = nothing
End sub
%>