INSERT INTO t1 (p1,p2,...) 
SELECT count(p1),p2,...* FROM t2 
WHERE p2 BETWEEN [minus__month] AND [date_to]

Microsoft Visual Basic for Applications
---------------------------
Compile error:

Expected: =
---------------------------
ОК   Справка   
---------------------------

Public Sub qryPar(qryName As String, ParamArray arrPar()) 'ïåðå÷èñëåíèå ïàðàìåòðîâ âèäà: "[èìÿ]","çíà÷åíèå","òèï"
Dim q As DAO.QueryDef, i As Integer

On Error GoTo err1

Set q = CurrentDb.QueryDefs(qryName)
    
For i = 0 To UBound(arrPar) Step 3 'è ò.ä. ïîêà íå ïåðåáåðåòå âñå ïàðàìåòðû
  Select Case arrPar(i + 2)
  Case vbvartype.vbString
    q.Parameters(arrPar(i)).Value = CStr(arrPar(i + 1))
  Case vbvartype.vbDate
    q.Parameters(arrPar(i)).Value = CDate(arrPar(i + 1))
  Case vbvartype.vbInteger
    q.Parameters(arrPar(i)).Value = CInt(arrPar(i + 1))
  Case vbvartype.vbBoolean
    q.Parameters(arrPar(i)).Value = CBool(arrPar(i + 1))
  Case vbvartype.vbDecimal
    q.Parameters(arrPar(i)).Value = CDec(arrPar(i + 1))
  Case vbvartype.vbDouble
    q.Parameters(arrPar(i)).Value = CDbl(arrPar(i + 1))
  Case Else
    q.Parameters(arrPar(i)).Value = Eval(arrPar(i + 1)) 'äëÿ ïàðàìåòðîâ âèäà Forms![ÈìÿÔîðìû]![ÈìÿÊîíòðîëà]
  End Select
Next i

q.Execute
q.Close

Set q = Nothing
Exit Sub

err1:
Debug.Print Err.Number & " " & Err.Description
End Sub

Public Sub qryPar2(qryName As String, ParamArray arrPar()) 'перечисление параметров 
Dim q As DAO.QueryDef, p As Parameter, i As Integer

On Error GoTo err1

Set q = CurrentDb.QueryDefs(qryName)
   
For Each p In q.Parameters
  Select Case p
  Case IsDate(p)
    p.Value = CDate(arrPar(i))
  Case IsNumeric(p)
    p.Value = CInt(arrPar(i))
  Case Else
    p.Value = Eval(arrPar(i)) 'для параметров вида Forms![ИмяФормы]![ИмяКонтрола]
  End Select
Next p

q.Execute
q.Close

Set q = Nothing
Exit Sub

err1:
Debug.Print Err.Number & " " & Err.Description
End Sub

qryPar("сводные_все","[minus_3_month]","1/1/2020",2,"[date_to]","1/2/2020",2)

Public Function DoesQryExist(QueryName As String) As Boolean
Dim qdf As DAO.QueryDef

On Error GoTo ErrorHandler

DoesQryExist = False

Set qdf = CurrentDb.QueryDefs(QueryName)

DoesQryExist = True

ErrorHandler:

WHERE (((LoadTime.[Дата и время загрузки на локальный сервер]) Between [minus_3_month] And [date_to]))

Public Function qryPar(qryName As String, ParamArray arrPar()) As Long  'перечисление параметров вида: "[имя]","значение"
Dim q As DAO.QueryDef, i As Integer

On Error GoTo err1

Set q = CurrentDb.QueryDefs(qryName)

For i = 0 To UBound(arrPar()) Step 2
  If IsDate(arrPar(i + 1)) Then
    q.Parameters(arrPar(i)).Value = CDate(arrPar(i + 1))
  ElseIf IsNumeric(arrPar(i + 1)) Then
    q.Parameters(arrPar(i)).Value = CDec(arrPar(i + 1))
  Else
    q.Parameters(arrPar(i)).Value = Eval(arrPar(i + 1)) 'для параметров вида Forms![ИмяФормы]![ИмяКонтрола]
  End If
Next i

q.Execute

d = DatePart("d", Me.dateFrom)
m = DatePart("m", Me.dateFrom)
y = DatePart("yyyy", Me.dateFrom)
date_from = m & "/" & d & "/" & y
minus_3_month = IIf(m >= 3, m - 2, Format(DatePart("m", DateAdd("m", -2, Me.dateFrom)), "00")) & "/" & 1 & "/" & IIf(m >= 3, y, Format(DatePart("yyyy", DateAdd("yyyy", -1, Me.dateFrom))))
d = DatePart("d", DateAdd("d", 1, Me.dateTo))
m = DatePart("m", DateAdd("d", 1, Me.dateTo))
y = DatePart("yyyy", DateAdd("d", 1, Me.dateTo))
date_to = m & "/" & d & "/" & y