db.VBE.ActiveVBProject.VBComponents.Item(i).export
Этот метод сохраняет в текстовый файл модуль и прибавляет атрибуты
типа
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "Form_Сроки"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Далеее
Option Compare Database 'Use database order for string comparisons
Private Sub Form_BeforeUpdate(Cancel As Integer).....
Нельзя ЛИ ИЗБАВИТСЯ ОТ ЭТИХ АТРИБУТОВ, а то приходится програмно открывать и вычищать.