当我们把表从sql 链接到access时候总是发现表名前面带了dbo_ 一个个修改比较麻烦这里用代码批量修改

代码如下：

Sub 修改表名()

Dim tbl As Object
For Each tbl In CurrentDb.TableDefs
If tbl.Name Like "dbo_*" Then tbl.Name = Replace(tbl.Name, "dbo_", "")
Next
End Sub