[Resolvido]filtrar subformulário com dois critérios de datas

Boa noite pessoal, preciso de uma ajuda, como coloco mais um critério de data e contas vencidas nesse código?

sSQL = "SELECT DataLancamento,Mes,Proveniente,Descricao,Qtd,ValorUnt,SubTotal,ValorPago,Apagar,DataVencimento,DataPagamento,DataReferencia,Parcelas,Quitar,BancoDespesa "
sSQL = sSQL & " FROM tbl_Despesas "
sSQL = sSQL & " WHERE (((DataPagamento) BETWEEN #" & Format(Me.txtDataInicial, "YYYY/mm/dd") & "# "
sSQL = sSQL & " AND #" & Format(Me.txtDataFinal, "YYYY/mm/dd") & "#)) "
sSQL = sSQL & " AND ValorPago > 0"

sSQL = sSQL & " ORDER BY tbl_Despesas.DataPagamento ASC;"


aqui ele mostra contas pagas (valorPago >0) entre dataPagamento
Gostaria de acrescentar no código contas entre DataVencimento e a Apagar >0 (contas vencidas)

Bom dia,
tente:

Código:

sSQL = "SELECT DataLancamento,Mes,Proveniente,Descricao,Qtd,ValorUnt,SubTotal,ValorPago,Apagar,DataVencimento,DataPagamento,DataReferencia,Parcelas,Quitar,BancoDespesa "
sSQL = sSQL & " FROM tbl_Despesas "
sSQL = sSQL & " WHERE (((DataPagamento) BETWEEN #" & Format(Me.txtDataInicial, "YYYY/mm/dd") & "# "
sSQL = sSQL & " AND #" & Format(Me.txtDataFinal, "YYYY/mm/dd") & "#)) "
sSQL = sSQL & " AND ValorPago > 0 "
sSQL = sSQL & " AND DataVencimento BETWEEN #" & Format(Me.txtDataInicialVencimento, "YYYY/mm/dd") & "# "
sSQL = sSQL & " AND #" & Format(Me.txtDataFinalVencimento, "YYYY/mm/dd") & "#)) "

sSQL = sSQL & " ORDER BY tbl_Despesas.DataPagamento ASC;"

txtDataInicialVencimento deve ser o campo com a data inicial do vencimento
txtDataFinalVencimento deve ser o campo com a data final do vencimento

Perfeito Marcelo, como a pesquisa era para o mes anterior criei quatro campos de txt Datas preenchidos automaticamente para o mes anterior (primeiro e ultimo dia do mes) colocando para os codigos de DataPagamento e outro para DataVencimento.
Muitissimo obrigado!!!

'Primeiro dia do mês anterior
Me.comb_inicio = DateSerial(Year(Date), Month(Date) - 1, 1)
Me.txtDataInicial = DateSerial(Year(Date), Month(Date) - 1, 1)


'O último dia do mês anterior:
Me.Comb_data = DateSerial(Year(Date), Month(Date), 0)
Me.txtDataFinal = DateSerial(Year(Date), Month(Date), 0)

sSQL = "SELECT DataLancamento,Mes,Proveniente,Descricao,Qtd,ValorUnt,SubTotal,ValorPago,Apagar,DataVencimento,DataPagamento,DataReferencia,Parcelas,Quitar,BancoDespesa "
sSQL = sSQL & " FROM tbl_Despesas "
sSQL = sSQL & " WHERE (((DataPagamento) BETWEEN #" & Format(Me.txtDataInicial, "YYYY/mm/dd") & "# "
sSQL = sSQL & " AND #" & Format(Me.txtDataFinal, "YYYY/mm/dd") & "#)) "
sSQL = sSQL & " AND ValorPago > 0 "
sSQL = sSQL & " AND DataVencimento BETWEEN #" & Format(Me.comb_inicio, "YYYY/mm/dd") & "# "
sSQL = sSQL & " AND #" & Format(Me.Comb_data, "YYYY/mm/dd") & "#)) "
sSQL = sSQL & " AND APagar > 0"
sSQL = sSQL & " ORDER BY tbl_Despesas.DataPagamento ASC;"

Gratos pelo retorno!