Dim Conn,ConnStr,oCat,oTblConnStr = "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") '要重命名的表名：OldTableoTbl.Name = "NewTable" '新表名Set oCat = NothingSet oTbl = NothingSql server 中可以用Sql语句直接重命名表，

下面是Sql Server 和 Access 操作数据库结构的常用Sql，希望对你有所帮助。内容由海娃整理，不正确与不完整之处还请提出，谢谢。

新建表：create table [表名]( [自动编号字段] int IDENTITY (1,1)  PRIMARY KEY , [字段1] nVarChar(50) default '默认值' null , [字段2] ntext null , [字段3] datetime, [字段4] money null , [字段5] int default 0,