такое отработать может? если нет, то почему?

StrSQL = "SELECT FINAL_PRISE FROM GAZOLINE WHERE GAZOLINE.BREND= FORMS!SHABLON!GAZOLINE"
CurrentDb.CreateQueryDef "gaz", StrSQL
DoCmd.OpenQuery "gaz", acNormal, acEdit

MsgBox (StrSQL)
CurrentDb.QueryDefs.Delete "gaz" 'удалить существующий запрос с этим именем....

TXT3 = (Forms!SHABLON!COL_OF_GAZOLINE * GAZ.FINAL_PRISE)
TXT2 = (Forms!SHABLON!AVANS - TXT3)

If TXT2 > "0" Then
TXT1 = "O"
Else: TXT1 = TXT2
End If
ret = "UPDATE SHABLON SET GNOMER = FORMs!SHABLON!GNOMER, marka_avto=FORMs!SHABLON!marka_avto, driver=FORMs!SHABLON!driver, avans=" & TXT1 & ", DATES = FORMs!SHABLON!dates, gazoline=FORMs!SHABLON!gazoline, rashod=" & TXT2 & ", oplatit=" & TXT3 & ", col_of_gazoline=FORMs!SHABLON!col_of_gazoline WHERE AVANS= Forms!SHABLON!AVANS OR DATES<> Forms!SHABLON!DATES OR [PRIC E_FOR_LITTER]<>'Forms!SHABLON![PRIC E_FOR_LITTER]' OR DATE_OF_PRICE<> Forms!SHABLON!DATE_OF_PRICE OR COL_OF_GAZOLINE<> Forms!SHABLON!COL_OF_GAZOLINE;"


CurrentDb.CreateQueryDef "raschet", ret
DoCmd.OpenQuery "raschet", acNormal, acEdit

CurrentDb.QueryDefs.Delete "raschet" 'удалить существующий запрос с этим именем....

и можно ли создавать отчет без хранения шаблона на него...
есть команда типа CurrentDb.CreateReportDef "raschet", ret ...
ответьте пожалуйста... буду признательна...