consulta Anexar con datos Subformulario

buenas tardes,

tengo un subformulario con unos datos filtrados por el usuario  y una consulta de actualización aparte, y lo que necesito es que esa consulta de actualización se ejecute sobre los datos filtrados:

Dim sqls As String
sqls = "AnexarPendientesCargo"
DoCmd.OpenQuery sqls

la consulta funciona correctamente pero sobre los datos de la consulta pero en el subformulario el cliente acota por fechas y el campo s

Y la consulta de Actualización es esta:

INSERT INTO CARGOS ( FECHA, CONCEPTO, IMPORTE, IDCLIENTE, S )
SELECT PendienteFacturacion.FechaPedido, [Expedición] & " - " & [Destinatario] & " - " & [CIUDADDESTINATARIO] & " - " & [CANTIDAD] & "-" & [NOMBREPALET] AS CONCEPTO, [Detalle de pedidos].TOTAL, PendienteFacturacion.IDCLIENTE, PendienteFacturacion.S
FROM PendienteFacturacion INNER JOIN [Detalle de pedidos ON PendienteFacturacion.IdExpedicion = [Detalle de pedidos].IdExpedicion
WHERE (((PendienteFacturacion.S)=True));

¿Me podríais orientar por favor?

Gracias por adelantado.

saludos

Bea