Выведите все формы и модули в текстовые файлы и используйте утилиту сравнения текста.
Например:
Sub ToText()
Dim frm, mdl
For Each frm In CurrentProject.AllForms
Application.SaveAsText acForm, frm.Name, "c:\docs\" _
& frm.Name & ".txt"
'ТАКОЕ форматирование
Next
For Each mdl In CurrentProject.AllModules
Application.SaveAsText acModule, mdl.Name, "c:\docs\" _
& mdl.Name & ".txt"
'ТАКОЕ форматирование
Next
End Sub