Это где нету: в SQL или VBA? В VBA он есть:
The And operator also performs a bitwise comparison of identically positioned bits in two numeric expressions and sets the corresponding bit in result according to the following table:

If bit in expression1 is And bit in expression2 is The result is
0 0 0
0 1 0
1 0 0
1 1 1

Это из хелпа по VBA

извиняюсь, не правильно прочитал тему. Видимо потому нету, что это можно реализовать из Access с помощью функции VBA. Конечно, если работать с запросами из самого Access, когда проект активен.

Option Compare Database
Option Explicit

Function BITAND(ByVal a As Long, ByVal b As Long) As Long
BITAND = a And b

End Function

Function list()
Dim rst As ADODB.Recordset
Set rst = CurrentProject.Connection.Execute("SELECT * FROM Запрос1")
While Not rst.EOF
Debug.Print rst.Fields(0)
rst.MoveNext

Wend
End Function

Вот текст Запрос1, базирующегося на таблице Таблица1, которая имеет 2 поля целого типа (Код1 и код2, соответственно):

SELECT bitand([Код1],[Код2]) AS Выражение1
FROM Таблица1;

Вроде как все работает.

Можно и без созранного запроса, создав выражение в динамическом операторе SQL:

Function list1()
Dim rst As ADODB.Recordset
Set rst = CurrentProject.Connection.Execute("SELECT BITAND(Код1, Код2) FROM Таблица1")
While Not rst.EOF
Debug.Print rst.Fields(0)
rst.MoveNext

Wend
End Function

bAND и bOR по какой-то странной причине не поддерживается интерфейсом построителей запросов Access, но это не означает, что они вообще отсутствуют в синтаксисе Jet SQL. Тот же пример можно переписать и так:

Function list1()
Dim rst As ADODB.Recordset
Set rst = CurrentProject.Connection.Execute("SELECT (Код1 bAND Код2) FROM Таблица1")
While Not rst.EOF
Debug.Print rst.Fields(0)
rst.MoveNext

Wend
End Function

и тоже будет работать, но только уже и из ASP