Private Sub tt_Click()
Dim dbs as Dao.Database,  qdf As Dao.QueryDef, prp as Dao.Property
Dim vArray
Dim i as long

vArray=VBA.Array("vbs_Q_Between_Add","vbs_Q_Not_Between_Add","vbs_Q_From_Add","vbs_Q_To_Add") 

Set dbs = CurrentDb

  For i=Lbound(vArray) to Ubound(vArray)
    Set qdf = dbs.QueryDefs(vArray(i))
      For Each prp In qdf.Properties
        prp.Value = Eval(prp.Name)
      Next
    qdf.Execute -------<<<<< тут
  next i

End Sub 

SELECT vbs_accom_ad_ch_variants.acvar_details_id, Rooms.HID, Hotels.Hotel,
 Inv_Q_BHT_Sale.QFrom, Inv_Q_BHT_Sale.QTo, Inv_Q_BHT_Sale.Sgl,
 Inv_Q_BHT_Sale.[DBL/Twin], Inv_Q_BHT_Sale.EXB, Inv_Q_BHT_Sale.EXB_Child,
 Inv_Q_BHT_Sale.ABFIn, Inv_Q_BHT_Sale.ABF, Inv_Q_BHT_Sale.ABF_Child,
 Inv_Q_BHT_Sale.Lunch, Inv_Q_BHT_Sale.Lunch_Child, Inv_Q_BHT_Sale.Dinner,
 Inv_Q_BHT_Sale.Dinner_Child, vbs_accom_ad_ch_variants.adult,
 vbs_accom_ad_ch_variants.child, vbs_accom_ad_ch_variants.single,
 vbs_accom_ad_ch_variants.sgl_ad, vbs_accom_ad_ch_variants.double,
 vbs_accom_ad_ch_variants.dbl_ad, vbs_accom_ad_ch_variants.dbl_ch,
 vbs_accom_ad_ch_variants.exb_ad, vbs_accom_ad_ch_variants.exb_ch,
 vbs_accom_ad_ch_variants.extra_abf_ch, Rooms.RID, Rooms.Room,
 vbs_accom_ad_ch_variants.board, 0 AS RO, IIf([ABFIn]=0,([ABF]),(0)) AS BB,
 IIf([Board]='HB',([Dinner]),(0)) AS HB, IIf([Board]='FB',([Lunch]+[Dinner]),(0)) AS FB,
 0 AS GalaAd,
 0 AS GalaCh,
 [Room] & ' room / ' & IIf([Single]>0,('Single')) AS Descr,
 'From:' & ([QFrom]) & '  To:' & ([Forms]![HotelCalculator]![CheckOut]) AS Period,
 vbs_accom_ad_ch_variants.single AS Quantity,
 ([Forms]![HotelCalculator]![CheckOut]-[QFrom]) AS [In House],
 Inv_Q_BHT_Sale.Sgl AS Price,
 IIf([ABFIn]<=-1,(([Price])*[In House]*[Quantity]),(([Price])*[In House]*[Quantity])) AS Price_Total,
 Regions.REGID, '' & ([Forms]![HotelCalculator]![CheckIn]) AS CheckIn,
 '' & ([Forms]![HotelCalculator]![CheckOut]) AS CheckOut, Inv_Q_BHT_Sale.QFrom AS [From],
 [Forms]![HotelCalculator]![CheckOut] AS [To],
 Cities.City, vbs_accom_permited.acperm_id,
 ' Total of accommodation for Adults (' & [Forms]![HotelCalculator]![Adult] & ')
 and Child (' & [Forms]![HotelCalculator]![Child] & ')  in ' & [Room] & ' room type' AS RoomType

FROM (Regions
 INNER JOIN Cities
 ON Regions.REGID = Cities.REGID)
 INNER JOIN (Location
 INNER JOIN (vbs_accom_ad_ch_variants
 INNER JOIN (vbs_accom_permited
 INNER JOIN ((Hotels
 INNER JOIN Rooms
 ON Hotels.HID = Rooms.HID)
 INNER JOIN Inv_Q_BHT_Sale
 ON Rooms.RID = Inv_Q_BHT_Sale.RID)
 ON vbs_accom_permited.acperm_id = Rooms.acperm_id)
 ON vbs_accom_ad_ch_variants.acperm_id = vbs_accom_permited.acperm_id)
 ON Location.LID = Hotels.LID)
 ON (Cities.CitiesID = Location.CitiesID) AND (Regions.REGID = Hotels.REGID) AND (Regions.REGID = Location.REGID)

WHERE (((Inv_Q_BHT_Sale.QFrom)>[Forms]![HotelCalculator]![CheckIn])
 AND ((vbs_accom_ad_ch_variants.adult)=[Forms]![HotelCalculator]![Adult])
 AND ((vbs_accom_ad_ch_variants.child)=[Forms]![HotelCalculator]![Child])
 AND (([Room] & ' room / ' & IIf([Single]>0,('Single'))) Like "*Single*")
 AND (('' & ([Forms]![HotelCalculator]![CheckOut]))>[QFrom] And ('' & ([Forms]![HotelCalculator]![CheckOut]))<=[QTo]))
ORDER BY vbs_accom_ad_ch_variants.acvar_details_id;

SELECT vbs_Q_Between_Single.*
FROM vbs_Q_Between_Single;
UNION ALL SELECT vbs_Q_Between_Double.*
FROM vbs_Q_Between_Double;
UNION ALL SELECT vbs_Q_Between_Extra_Bed_Adult_sub.*
FROM vbs_Q_Between_Extra_Bed_Adult_sub;
UNION ALL SELECT vbs_Q_Between_Extra_Bed_Child_sub.*
FROM vbs_Q_Between_Extra_Bed_Child_sub;
UNION ALL SELECT vbs_Q_Between_Extra_ABF_Child_sub.*
FROM vbs_Q_Between_Extra_ABF_Child_sub;

SELECT vbs_Q_From_Single.*
FROM vbs_Q_From_Single;
UNION ALL SELECT vbs_Q_From_Double.*
FROM vbs_Q_From_Double;
UNION ALL SELECT vbs_Q_From_Extra_Bed_Adult_sub.*
FROM vbs_Q_From_Extra_Bed_Adult_sub;
UNION ALL SELECT vbs_Q_From_Extra_Bed_Child_sub.*
FROM vbs_Q_From_Extra_Bed_Child_sub;
UNION ALL SELECT vbs_Q_From_Extra_ABF_Child_sub.*
FROM vbs_Q_From_Extra_ABF_Child_sub;

SELECT vbs_Q_Not_Between_Single.*
FROM vbs_Q_Not_Between_Single;
UNION ALL SELECT vbs_Q_Not_Between_Double.*
FROM vbs_Q_Not_Between_Double;
UNION ALL SELECT vbs_Q_Not_Between_Extra_Bed_Adult_sub.*
FROM vbs_Q_Not_Between_Extra_Bed_Adult_sub;
UNION ALL SELECT vbs_Q_Not_Between_Extra_Bed_Child_sub.*
FROM vbs_Q_Not_Between_Extra_Bed_Child_sub;
UNION ALL SELECT vbs_Q_Not_Between_Extra_ABF_Child_sub.*
FROM vbs_Q_Not_Between_Extra_ABF_Child_sub;

INSERT INTO vbs_Invoice_Q_Between
SELECT vbs_Q_Between.*, *
FROM vbs_Q_Between;

INSERT INTO vbs_Invoice_Q_From
SELECT vbs_Q_From.*
FROM vbs_Q_From;

INSERT INTO vbs_Invoice_Q_Between
SELECT vbs_Q_Between.*, *
FROM vbs_Q_Between;