ถามไว้ที่ http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_2000&Number=174268&page=0&view=collapsed&sb=5&o=7&fpart=1 
 
คือเขามีตารางที่ขึ้นต้นด้วยคำว่า dbo_ จำนวนมาก และต้องกาตัดเอาส่วนนี้ออก 
 
ผมเลยให้โค้ดเขาไปดังนี้ครับ 
 
Sub ChangeTableName() 
Dim dbs As Database, tdf As TableDef 
Set dbs = CurrentDb 
For Each tdf In dbs.TableDefs 
    If Left(tdf.Name, 4) = "dbo_" Then 
        DoCmd.Rename Mid(tdf.Name, 5), acTable, tdf.Name 
    End If 
Next 
dbs.Close 
Set dbs = Nothing 
End Sub