Sub RemoveDboPrefix()
    Dim tableList, table
    
    Set tableList = CurrentDb.TableDefs
    
    For Each table In tableList
        If Left(table.Name, 4) = "dbo_" Then
            table.Name = Right(table.Name, Len(table.Name) - 4)
        End If
    Next
    tableList.Update
End Sub