ник: Анатолий (Киев)
И в коде (не меняя Option Compare) и в запросе для сравнения строк с учетом регистра можно использовать функцию StrComp()
Например в запросе: WHERE StrComp([Поле1], [Поле2], 0)=0
Где 0 - vbBinaryCompare
А для оператора Like действительно надо писать собственную функцию в модуле с Option Compare Binary, и использовать ее в запросе или других модулях.