В запросе для установки даты используется параметр "Дата", например:

Запрос.Текст="...ГДЕ Дата МЕЖДУ НАЧАЛОПЕРИОДА(&Дата, МЕСЯЦ) И КОНЕЦПЕРИОДА(&Дата, МЕСЯЦ)...";
Запрос.УстановитьПараметр("Дата", ТекущаяДата());

Как можно избавиться от использования параметра и получить текущую дату прямо в запросе?

зачем ? ты просто тогда не ограничивай конец периода.. вот и будет по ТекущаяДата()

Запрос.Текст="...ГДЕ Дата МЕЖДУ НАЧАЛОПЕРИОДА(ТекущаяДата(), МЕСЯЦ) И КОНЕЦПЕРИОДА(ТекущаяДата(), МЕСЯЦ)...";

конечно если ты не ведешь базу будущим периодом :)

(2) так нельзя

(4) можно

запрос вызывается из vbs через COM-конектор при формировании html страницы и устаонвить параметр не получается, вот и нужно всё в строке запроса передать.

(2) так нельзя.

ДАТАВРЕМЯ

Получай нужную дату в vbs и передавай в текст запроса используя
ДАТАВРЕМЯ(<год>,<месяц>,<день>,<час>,<минута>,<секунда>)

&Currentdate

для ком чтобы передать дату
Запрос.УстановитьПараметр("Дата",Ком.ЗначениеИзСтрокиВнутр(ЗначениеВСтркоуВнутр(ТекущаяДата())));

впрочем и ком.ТекущаяДата() подойдёт..
(6) и чего в вб нельзяч параметры передавать?

В КД можно, в запросе нет

сделал через ДАТАВРЕМЯ

Set Query = Base.NewObject("Запрос")

d = date()
td = FormatNumber(Year(d),0, 0, 0, 0)&","
if Month(d) < 10 then
   td = td & "0"
end if
td = td & FormatNumber(Month(d),0, 0, 0, 0)&","
if Day(d) < 10 then
   td = td & "0"
end if
td = td & FormatNumber(Day(d),0, 0, 0, 0)
Query.Text = "...ГДЕ Дата МЕЖДУ НАЧАЛОПЕРИОДА(ДАТАВРЕМЯ(" & td & "), месяц) И КОНЕЦПЕРИОДА(ДАТАВРЕМЯ(" & td & "), месяц)..."
Set Result = Money.Execute().Choose()

(13) Сидоров, садись, ПЯТЬ!