

Используемый вами SQL недействителен. При добавлении ссылки на элемент управления необходимо экранировать строку запроса. Кроме того, вы можете получить элемент управления прямо по его имени. Попробуйте следующее:
sqltext = "SELECT utyp, count(*) AS anzahl INTO UTYP_Anzahl " _
& "FROM 01_umwelt WHERE [01_umwelt].status = " _
& STATUS.Value _
& " GROUP BY utyp;"
В Access свойство элемента управления по умолчанию - .VALUE, поэтому использовать его совершенно необязательно.