Stumped: Error on Combo Box Sort

I'm trying to filter a subform based on combobox selection and getting a runtime error '424' - object required.

I downloaded the code from http://www.techonthenet.com/access/forms/filter_form.php and verified that it works in the provided sample database.

I copied the example and I'm getting the runtime error. I tried copying everything to a new form in case of form corruption with no results.

I've checked all the names of forms and controls as well.

Option Compare Database
Const LSQL = "SELECT [Order].[Id], [Order].[SellingPrice], [Client].[CompanyName], [Job].[TakenBy], [Job].[Referral], [Order].[CompletionDate], [Order].[Total_Labour], [Order].[Total_Material] FROM (([Client] INNER JOIN [Order] ON [Client].[CustomerID] =[Order].[CustId]) INNER JOIN [Job] ON [Order].[Id] =[Job].[Order_Id])"
Dim SQL As String

Sub SetFilter()

    SQL = LSQL & " where CustomerID = '" & cboEmp.Value & "'"
    
    form_frmReportSub.RecordSource = SQL 'ERROR IS HERE

End Sub

Private Sub cboEmp_AfterUpdate()
    
    'Call subroutine to set filter based on selected CustomerID
    SetFilter
    
End Sub

The code breaks at form_frmReportSub.RecordSource = SQL as noted above.