Помогите запустить VBA ACCESS

Помогите пожалуйста объединить все строки из столбца в одно поле в ACCESS.
Нашла вроде код., но не могу запустить.Кто разбирется в этом помогите пожалуйста
Пошагово.Спасибо .Вот код

dim rst as dao.recordset
dim СтрокаРезультата as string
set rst=currentdb.openrecordset('select [ИмяСтолбца] from [ИмяТаблицы]')
do until rst.eof
if СтрокаРезультата='' then
СтрокаРезультата=nz(rst(0),'')
else
СтрокаРезультата=СтрокаРезультата & vbnewLine & nz(rst(0),'')
endif
loop