Из форма вызывается функция:
Private Sub buttonPredstListOpen_Click()
Call Lib.FormListOpen(0 _
, "Список представителей:" _
, "PredstList" _
, "PredstList" _
)
End Sub
Функция находится в отдельном модуле:

Option Compare Database
Option Explicit
Public Function FormListOpen _
(ByVal intFLOpenMode As Integer _
, ByVal strFormListTitle As String _
, ByVal strFormListSubName As String _
, ByVal strSQL As String _
)

Dim frmList As New Form_ListTemplate

' ?!?!?!?!?!?!?!?!?!?!
' Далее ругается:
' Compile error:
' Variable not defined
' т.е. указывает, что переменная
' intFLOpenMode не отпределена:

Call frmList.FormOpenModeCheck _
(intFLOpenMode _
, strFormListTitle _
, strFormListSubName _
, strSQL _
)
frmList.Visible = True
Set frmList = Nothing
End Function

В чем может быть дело???

Кроме этой ошибки при сжатии файла выскакивала другая обибка, точно не понял, но что-то связанное с превышением количества ссылок, хотя ссылок у меня раз-два и обчелся.
Обе эти проблемы решил следующим образом:
Создал с нуля пустой mdb-файл и туда скопировал все формы и модули и прежднего, в котором возникали ошибки, вроде пока нормально работает.

Владимир Саныч Serge GavrilovintFLOpenMode вроде же описан как аргумент функции...
Описание аргумента функции имеет область видимости только внутри тела функции!!!
В том то и дело, что она используется только внутри тела этой функции.
А в общем я уже написал выше, как устранил проблему, кроме данного способа наверно еще бубен помог бы. :-)