ник: Гоблин
Поле категория ставлю числовое. Как всегда работает только по Лукасу. Но смысла от функции DLookup не узрел. 
Показывает первого в списке без записи. Работает только вот так:
Dim varX As Variant
Dim srch As Integer
'srch = Null
varX = DLookup("Сотрудник", "Сотрудники", "Категория Is Null")
MsgBox varX
И чем она лучше MsgBox?