帮我看看这段代码
我要在80多个Form里每个Form的beforeupdate加入相同的代码，代码保存在d:\addproc.txt，以下是我试着写的代码，但没通过，请高手看看
Function AllForms() As Boolean
On Error GoTo Err:
Dim frm As AccessObject, mdl As Module
' Search for open AccessObject objects in AllForms collection.
For Each frm In CurrentProject.AllForms
Debug.Print frm.Name
Set mdl = frm.Module
mdl.AddFromFile ("d:\addproc.txt")
' Modules(obj.Module).AddFromFile "d:\addproc.txt"
Next frm
AllForms = True
Exit Function
Err:
MsgBox (Err.Description)
AllForms = False
End Function