Retvisan,
этот код поместите в общие модули
Sub Trace(ByVal txtinfo As String)
On Error Resume Next
MyFile = "D:\" & "logfile.txt"
fnum = FreeFile()
Open MyFile For Append As fnum
txtinfo = CStr(Now()) + " " + txtinfo
Print #fnum, txtinfo
Close #fnum
End Sub
а в проблемные почки поместите вызов
например на открытие формы или изменения какого то поля или .....
.....
Trace me.name & " " & " какая-то метка в коде " & " некая переменная=" & ееЗначение
.........