I am loading a listbox using this code. When pass in the salesperson key, the listbox is not loaded:

Private Sub LoadSelectedList(iSalesPersonId As Integer)

    Dim strQuery As String
                    
    strSQL = "SELECT Pk_Id, Name " _
                & "FROM tblClient " _
                & "WHERE tblClient.Pk_Id IN " _
                & "(SELECT fk_Client " _
                & "FROM tblSalespersonClient " _
                & "WHERE fk_Salesperson = " & iSalesPersonId & ")"
        
    lstSelected.RowSourceType = "Table/Query"
    lstSelected.RowSource = strSQL
    lstSelected.Requery

End Sub

What am I doing wrong?