使用字符串中的变量重新查询

我在使用SQL字符串重新查询子表单时遇到麻烦，这是我的代码：

Dim Day As Integer
Day = txt_Days.Value         
SQL = "SELECT [qry_Records].[Tool_ID], [qry_Records].[Cal_Date]," _
    & "[qry_Records].[Cal_By], [qry_Records].[As_Received], " _
    & "[qry_Records].[Result], [qry_Records].[Next_Due], " _
    & "[qry_Records].[Due] FROM [qry_Records]" _
    & " WHERE [qry_Records].[Due] < Day;"

subform_View_Search_Records.Form.RecordSource = SQL

我尝试使用不同的变体在SQL字符串的末尾引用Day变量，如下所示，但没有任何效果：

& " WHERE [qry_Records].[Due] < ""Day"";"
& " WHERE [qry_Records].[Due] < '"Day"';"

非常感谢您的帮助！