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 SubWhat am I doing wrong?