Здравствуйте.
Решил поделиться очень странным багом.
У меня в базе есть 2 таблицы, которые содержат список заголовков (имён) функций из моих-же модулей.
Есть необходимость программно сравнивать эти списки. Так вот на операции сравнения имён, функции запускаются.

Public Sub aУдалитьЛишниеФункции()
On Error GoTo Ошибка                                                            'из таблицы "юСписокФункций" удаляем функции,
Dim strЗапрос  As String, strОсновнойСписок As String                           'которых уже нет в модулях
Dim rstОсновнойСписок As Recordset, rstВспомогательныйСписок As Recordset
Dim dbТекущая As Database
Set dbТекущая = CurrentDb
Set rstОсновнойСписок = dbТекущая.OpenRecordset("SELECT юСписокФункций.* FROM юСписокФункций ORDER BY юСписокФункций.КодФункции DESC;", dbOpenDynaset)
Set rstВспомогательныйСписок = dbТекущая.OpenRecordset("юСписокФункцийВспом", dbOpenDynaset)
    Do Until rstОсновнойСписок.EOF
        strОсновнойСписок = rstОсновнойСписок!ИмяФункции
        Debug.Print strОсновнойСписок
        
        rstВспомогательныйСписок.FindFirst "ИмяФункции = " & rstОсновнойСписок!ИмяФункции
        If rstВспомогательныйСписок.NoMatch Then
            rstОсновнойСписок.Delete                                            'удаляем устаревшую функцию
        End If
        rstОсновнойСписок.MoveNext
    Loop
Exit Sub
Ошибка:                                                                         'Обработка ошибки
MsgBox (Err.Description & "  " & Err.Number)
End Sub

Функция из списка запускается при выполнении команды

 rstВспомогательныйСписок.FindFirst "ИмяФункции = " & rstОсновнойСписок!ИмяФункции

Кто-нибудь сталкивался с подобной бякой?

http://www.sql.ru/forum/1290982/bag-ili-boyan