MS Access Remove DBO prefix when import from ODBC

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