下面代码是用Adox重命名Access表名的示例代码: 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") '要重命名的表名:OldTable oTbl.Name = "NewTable" '新表名 Set oCat = Nothing Set oTbl = Nothing