I'm getting this error when transferring data to table, appears to relate to fields "Body" and "Cover".
States a "Syntax error (missing operator) in the query expression.
Would appreciate any direction you're able to provide, thanks.

Dim Body As String, Description As String, Cover As String, S As String, C As Currency
Dim db As Database
Dim rs As Recordset

    Set db = CurrentDb
    Set rs = db.OpenRecordset("Select * from TenantQ where TenantID=" & TenantCombo)

'Create Deed Document    
'Input into Body
    Description = DLookup("Subject", "DocumentTemplateT", "DocumentTemplateID=" & 6)
    Body = DLookup("Body", "DocumentTemplateT", "DocumentTemplateID=" & 6)
        
    ' Body Code Subtitutions
    If InStr(Body, "{TodayDate}") Then
        S = Date
        Body = Replace(Body, "{TodayDate}", S)
    End If
    If InStr(Body, "{TenantName}") Then
        S = DLookup("TenantName", "TenantQ", "TenantID=" & TenantCombo)
        Body = Replace(Body, "{TenantName}", UCase(S))
    End If
    If InStr(Body, "{CompanyNo}") Then
        S = DLookup("CompanyNo", "TenantT", "TenantID=" & TenantCombo)
        Body = Replace(Body, "{CompanyNo}", S)
    End If
    If InStr(Body, "{Guarantor}") Then
        S = DLookup("Guarantor", "TenantQ", "TenantID=" & TenantCombo)
        Body = Replace(Body, "{Guarantor}", UCase(S))
    End If
    If InStr(Body, "{CPIReviewDate}") Then
        S = DLookup("Anniversary", "TenantQ", "TenantID=" & TenantCombo)
        Body = Replace(Body, "{CPIReviewDate}", S)
    End If
    If InStr(Body, "{LegalDescription}") Then
        S = DLookup("LegalDescription", "TenantQ", "TenantID=" & TenantCombo)
        Body = Replace(Body, "{LegalDescription}", S)
    End If
    If InStr(Body, "{FullAddress}") Then
        S = DLookup("FullAddress", "TenantQ", "TenantID=" & TenantCombo)
        Body = Replace(Body, "{FullAddress}", S)
    End If
    If InStr(Body, "{FigPriorPrevious}") Then
        S = DLookup("FigPriorPrevious", "CPIReviewT", "TenantID=" & TenantCombo)
        Body = Replace(Body, "{FigPriorPrevious}", S)
    End If
    If InStr(Body, "{DatePriorCurrentPrevious}") Then
        S = DLookup("FigPriorCurrent", "CPIReviewT", "TenantID=" & TenantCombo)
        Body = Replace(Body, "{FigPriorCurrent}", S)
    End If
     If InStr(Body, "{FigPriorCurrent}") Then
        S = DLookup("FigPriorPrevious", "CPIReviewT", "TenantID=" & TenantCombo)
        Body = Replace(Body, "{FigPriorPrevious}", S)
    End If
    If InStr(Body, "{DatePriorCurrent}") Then
        S = DLookup("FigPriorCurrent", "CPIReviewT", "TenantID=" & TenantCombo)
        Body = Replace(Body, "{FigPriorCurrent}", S)
    End If
    If InStr(Body, "{CPIRateApplicable}") Then
        S = DLookup("CPIRateApplicable", "CPIReviewT", "TenantID=" & TenantCombo)
        Body = Replace(Body, "{CPIRateApplicable}", S)
    End If
    If InStr(Body, "{ProposedRentExclGST}") Then
        C = Nz(DLookup("ProposedRentExclGST", "CPIReviewT", "TenantID=" & TenantCombo), 0)
        S = Format(C, "Currency")
        Body = Replace(Body, "{ProposedRentExclGST}", S)
        End If
    If InStr(Body, "{NewMonthlyRent}") Then
        C = Nz(DLookup("NewMonthlyRent", "CPIReviewT", "TenantID=" & TenantCombo), 0)
        S = Format(C, "Currency")
        Body = Replace(Body, "{NewMonthlyRent}", S)
    End If
    If InStr(Body, "{ETotalOPEX}") Then
        C = Nz(DLookup("ETotalOPEX", "CPIReviewT", "TenantID=" & TenantCombo), 0)
        S = Format(C, "Currency")
        Body = Replace(Body, "{ETotalOPEX}", S)
        End If
    If InStr(Body, "{ETotalMonthlyOPEX}") Then
        C = Nz(DLookup("ETotalMonthlyOPEX", "CPIReviewT", "TenantID=" & TenantCombo), 0)
        S = Format(C, "Currency")
        Body = Replace(Body, "{ETotalMonthlyOPEX}", S)
    End If
    
    Me.Refresh
    
    'Input Cover Page
    Cover = DLookup("Body", "DocumentTemplateT", "DocumentTemplateID=" & 4)
    ' Cover Page Code Subtitutions
    If InStr(Cover, "{TenantName}") Then
        S = DLookup("TenantName", "TenantQ", "TenantID=" & TenantCombo)
        Cover = Replace(Cover, "{TenantName}", UCase(S))
    End If
    If InStr(Cover, "{Guarantor}") Then
        S = DLookup("Guarantor", "TenantQ", "TenantID=" & TenantCombo)
        Cover = Replace(Cover, "{Guarantor}", UCase(S))
    End If
    If InStr(Cover, "{Subject}") Then
        S = DLookup("Subject", "DocumentTemplateT", "DocumentTemplateID=" & 6)
        Cover = Replace(Cover, "{Subject}", UCase(S))
    End If
    
    Me.Refresh
    
    If MsgBox("Do you wish to transfer Document data to relevant Table?" & vbNewLine & vbNewLine & "i.e. DocumentT", vbYesNoCancel, "Transfer Data") = vbYes Then
    CurrentDb.Execute "INSERT INTO DocumentT (TenantID, DocumentDate, Description, Notes, Cover)" & "VALUES(" & rs!TenantID & ", #" & Date & "#, '" & Description & "', '" & Body & "', '" & Cover & "')"
    MsgBox "Transfer Completed", vbOKOnly, "Data Transfer"
    Else
    End If