[aESThete]

имхо в запросе выполняются не всегда/не все VBA функции
попробуйте в одном из модулей базы определить глобальную (public) функцию вида:

Public Function RemoveSpace(S as String) As String
RemoveSpace = ReplaceChars(S;" ";"";10;1;0)
End Function

соответственно в запросе:

select RemoveSpace([CROSS]![KKKNummer]) as Pin ....