Public Sub Remove_DBO_Prefix()
Dim obj As AccessObject
Dim dbs As Object
Set dbs = Application.CurrentData
'Search for open AccessObject objects in AllTables collection.
For Each obj In dbs.AllTables
'If found, remove prefix
If Left(obj.Name, 5) = "dbo_t" Then
DoCmd.Rename Mid(obj.Name, 5), acTable, obj.Name
ElseIf Left(obj.Name, 5) = "dbo_q" Then
DoCmd.Rename Mid(obj.Name, 5), acQuery, obj.Name
End If
Next obj
End Sub