如何用语句把Access数据库中的所有表都重新命名！

第一步：

选出Access某数据库中所有表

SELECT right(MSysObjects.Name,len(MSysObjects.Name)-4) AS Expr1
FROM MsysObjects
WHERE (((Left([Name],1))<>"~") AND ((Left$([Name],4))<>"Msys") AND ((MsysObjects.Type)=1))
ORDER BY MsysObjects.Name