VB提取出SQL数据库中所有表名

然后更改各个表里面的几个固定字段，例如我库里有很多表，要求修改YSBM和CODE两个字段，要求同一个表里面一样

---

sql = "select name from sysobjects where type='U'"
获取所派胡带有表名，然后再遍历每个表的字段尘芦，获取字段做慧名

---