SELECT

Dim SQL As String
Dim Criterio As String, Criterio1 As String
Dim Criterio2 As Date
Criterio = MaskEdBox1
Criterio1 = [Ô][ô]*[Ô] & Combo1.Text & [Ô][ô][Ô]
Criterio2 = Format(Date, [Ô]mm/dd/yyyy[Ô])
SQL = [Ô]SELECT * FROM Lancamento_despesa WHERE Discriminacao_despesa LIKE [ô]*[Ô] & Text2.Text & [Ô]*[ô] AND Safra_referencia Like [ô]*[Ô] & MaskEdBox4.Text & [Ô]*[ô] AND Pago= [ô]NÃO[ô] AND Data_vencimento like  < #[Ô] + Criterio2 + [Ô]#  AND Pago LIKE [ô]*[Ô] & Combo6.Text & [Ô]*[ô] AND Data_Vencimento LIKE [ô]*[Ô] & Criterio & [Ô]*[ô] AND Pago_po LIKE [ô]*[Ô] & Combo7.Text & [Ô]*[ô] AND Pagamento_para LIKE [Ô] & Criterio1
Data1.RecordSource = SQL
Data1.Refresh

Citação:

:
colega tem uma lambança, lembre-se a simplicidade é sempre o melhor caminho.

primeiro não vejo necessidade do uso do chr$(39) sendo que você pode colocar o caractere direto no código.

outra coisa sempre leia bem o que escreve, sei que as vezes após horas digitando acabamos não vendo nossos erros, mas tenha este cuidado, veja por exemplo o sinal (+) após o [ô]NÃO[ô], então é isso, tente ai

Dim SQL As String
Dim Criterio As String, Criterio1 As String
Dim Criterio2 As Date
Criterio = MaskEdBox1
Criterio1 = [Ô][ô]*[Ô] & Combo1.Text & [Ô][ô][Ô]
Criterio2 = Format(Date, [Ô]mm/dd/yyyy[Ô])
SQL = [Ô]SELECT * FROM Lancamento_despesa WHERE Discriminacao_despesa LIKE [ô]*[Ô] & Text2.Text & [Ô]*[ô] AND Safra_referencia Like [ô]*[Ô] & MaskEdBox4.Text & [Ô]*[ô] AND Pago= [ô]NÃO[ô] AND Data_vencimento like  < #[Ô] + Criterio2 + [Ô]#  AND Pago LIKE [ô]*[Ô] & Combo6.Text & [Ô]*[ô] AND Data_Vencimento LIKE [ô]*[Ô] & Criterio & [Ô]*[ô] AND Pago_po LIKE [ô]*[Ô] & Combo7.Text & [Ô]*[ô] AND Pagamento_para LIKE [Ô] & Criterio1
Data1.RecordSource = SQL
Data1.Refresh

veja se funciona percebi também uma formatação errada no campo data (Criterio2)

Citação:

:
O campo Pago da sua tabelas esta sendo usado duas vezes, Data_Vencimento duas vezes.Não vai dar certo.
AND Pago= [ô]NÃO[ô]
Pago LIKE [ô]*[Ô] & Combo6.Text & [Ô]*[ô]
Discriminacao_despesa LIKE [ô]*[Ô] & Text2.Text & [Ô]*[ô] mude todos para
Discriminacao_despesa LIKE [ô][Ô] & Text2.Text & [Ô][ô]
AND Data_vencimento like < #[Ô] + Criterio2 + [Ô]# mude para,
AND Data_vencimento < #[Ô] & Criterio2 & [Ô]#[Ô]
Refaz a sua consulta.

Dim SQL As String
Dim Criterio As String, Criterio1 As String
Dim Criterio2 As Date
Criterio = Format(MaskEdBox1, [Ô]mm/dd/yyyy[Ô])
Criterio1 = [Ô][ô]*[Ô] & Combo1.Text & [Ô][ô][Ô]
Criterio2 = Format(Date, [Ô]mm/dd/yyyy[Ô])
SQL = [Ô]SELECT * FROM Lancamento_despesa WHERE Discriminacao_despesa LIKE [ô]*[Ô] & Text2.Text & [Ô]*[ô] AND Safra_referencia Like [ô]*[Ô] & MaskEdBox4.Text & [Ô]*[ô] AND Pago= [ô][Ô] & Combo6.Text & [Ô][ô] AND Data_vencimento < #[Ô] + Criterio2 + [Ô]#  AND Data_Vencimento = #[Ô] & Criterio & [Ô]# AND Pago_po LIKE [ô]*[Ô] & Combo7.Text & [Ô]*[ô] AND Pagamento_para LIKE [Ô] & Criterio1
Data1.RecordSource = SQL
Data1.Refresh

Citação:

:
Mais uma tentativa

Dim SQL As String
Dim Criterio As String, Criterio1 As String
Dim Criterio2 As Date
Criterio = Format(MaskEdBox1, [Ô]mm/dd/yyyy[Ô])
Criterio1 = [Ô][ô]*[Ô] & Combo1.Text & [Ô][ô][Ô]
Criterio2 = Format(Date, [Ô]mm/dd/yyyy[Ô])
SQL = [Ô]SELECT * FROM Lancamento_despesa WHERE Discriminacao_despesa LIKE [ô]*[Ô] & Text2.Text & [Ô]*[ô] AND Safra_referencia Like [ô]*[Ô] & MaskEdBox4.Text & [Ô]*[ô] AND Pago= [ô][Ô] & Combo6.Text & [Ô][ô] AND Data_vencimento < #[Ô] + Criterio2 + [Ô]#  AND Data_Vencimento = #[Ô] & Criterio & [Ô]# AND Pago_po LIKE [ô]*[Ô] & Combo7.Text & [Ô]*[ô] AND Pagamento_para LIKE [Ô] & Criterio1
Data1.RecordSource = SQL
Data1.Refresh

eu formatei a variável critério para o formato de data correto
na parte da query [Ô]...DataVencimento Like [ô]*...[Ô] eu alterei para o formato correto que é [Ô]...Data_Venciemento = #[Ô] & Critério & [Ô]#...[Ô]
Retirei a parte em que você repete a busca no campo PAGO, no caso retirei a parte [Ô]...pago = [ô]NÃO[ô]...[Ô] e mantive a parte [Ô]...Pago= [ô][Ô] & Combo6.Text & [Ô][ô]...[Ô] pois acredito que você utilize o combo para buscar por não ou por sim.
Se não funcionar diga qual é o tipo de cada campo utilizado nesta consulta.

SQL = [Ô]SELECT * FROM Lancamento_despesa WHERE Discriminacao_despesa LIKE [ô]*[Ô] & Text2.Text & [Ô]*[ô] AND (Safra_referencia Like [ô]*[Ô] & MaskEdBox4.Text & [Ô]*[ô] AND Pago= [ô][Ô] & Combo6.Text & [Ô][ô] ) AND ( Data_vencimento < #[Ô] + Criterio2 + [Ô]#  AND Data_Vencimento = #[Ô] & Criterio & [Ô]#) AND (Pago_po LIKE [ô]*[Ô] & Combo7.Text & [Ô]*[ô] AND Pagamento_para LIKE [Ô] & Criterio1 & [Ô])[Ô]