sql = " SELECT ReportDate.ID_Balance, Sum(BalanceSheet.A_001) AS SumOfA_001, Sum(BalanceSheet.A_005) AS SumOfA_005" & _ 
" FROM ReportDate RIGHT JOIN BalanceSheet ON ReportDate.ID_Balance = BalanceSheet.ID_Balance GROUP BY ReportDate.ID_Balance" & _ 
" HAVING (((ReportDate.ID_Balance)=" & _
[Forms]![ReportTotal]![ReportDataStart] & _
"))" 

Sub zrn01_click()

Dim s
If Len("" & [Forms]![ReportTotal]![ReportDataStart]) > 0 Then
s = ""
s = s & " SELECT ReportDate.ID_Balance,"
s = s & "  Sum(BalanceSheet.A_001) AS SumOfA_001,"
s = s & "  Sum(BalanceSheet.A_005) AS SumOfA_005 "
s = s & "  FROM ReportDate"
s = s & "    RIGHT JOIN BalanceSheet"
s = s & "     ON ReportDate.ID_Balance = BalanceSheet.ID_Balance"
s = s & "  GROUP BY ReportDate.ID_Balance"
s = s & "  HAVING ReportDate.ID_Balance=%1"
s = Replace(s, "%1", [Forms]![ReportTotal]![ReportDataStart])
Debug.Print s
DoCmd.RunSQL s
Else
MsgBox "не заполнено поле [Forms]![ReportTotal]![ReportDataStart]"
End If
End Sub

" HAVING (((ReportDate.ID_Balance)=" & _
[Forms]![ReportTotal]![ReportDataStart] & _
"))" 

Private Sub Command2_Click()

Dim rs As DAO.Recordset
Dim db As Database
Dim str As String
Dim aaa, abc As String
Dim objXL As Object
Dim objWB As Object
Dim objWS As Object


Set objXL = CreateObject("Excel.Application")
Set objWB = objXL.Workbooks.Open("c:\temp\testfile.xlsx")
Set objWS = objWB.Worksheets(1)
Set db = CurrentDb()

str = "SELECT ReportDate.ID_Balance,"
str = str & " Sum(BalanceSheet.A_001) AS SumOfA_001,"
str = str & " Sum(BalanceSheet.A_005) AS SumOfA_005"
str = str & " FROM Zoramas"
str = str & " RIGHT JOIN (ReportDate"
str = str & " RIGHT JOIN BalanceSheet"
str = str & " ON ReportDate.ID_Balance = BalanceSheet.ID_Balance)"
str = str & " ON Zoramas.ID_Zoramas = BalanceSheet.ID_Zoramas"
str = str & " GROUP BY ReportDate.ID_Balance"
str = str & " HAVING ReportDate.ID_Balance=" & Me.ReportDateEnd
'Me.[ReportDataEnd]
Debug.Print str

Set rs = db.OpenRecordset(str)
rs.MoveLast
rs.MoveFirst
If rs.RecordCount > 0 Then
Debug.Print rs.Fields(1).Name
aaa = rs.Fields("SumOfA_001")
abc = rs.Fields("SumOfA_005")


With objWS

.Cells(3, 3).Value = aaa
''.Cells(3, 6).Value = Me.Label1.Caption

.Cells(4, 3).Value = abc

End With
End If
objXL.Visible = True

End Sub