<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<% Option Explicit %>
<%
Dim cat
Set cat = Server.CreateObject("ADOX.Catalog")
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Databases\MSAccess\Test.mdb"
Dim tbl 
Set tbl = cat.Tables("E")
tbl.Columns("id").Name = "id2"
%>