[Resolvido]Filtrar relatório ao abrir entre datas e por cliente

Estou quebrando a cabeça e não consigo ver o meu erro.

Tenho um relatório que gostaria de filtrar ao abrir por cliente, e entre datas.

Se eu coloco só o critério de cliente dá certo, e se coloco só o de data também dá.
Mas não consigo abrir com os dois critérios, sai em branco.

Alguém consegue me ajudar a ver onde está o erro?

Código:



Private Sub btGerarRelatorios_Click()


Dim txtDataInicial As Date, txtDataFinal As Date
txtDataInicial = Forms!clientes![dataInicial].Value
txtDataFinal = Forms!clientes![dataFinal].Value

Dim strCriteria1 As String, strCriteria2 As String
strCriteria1 = "[data] > #" & Format(txtDataInicial, "yyyy-mm-dd") & "# And [data] < #" & Format(txtDataFinal, "yyyy-mm-dd") & "#"
strCriteria2 = "NumCliente = '" & Forms!clientes![NumCliente].Value & "' "

If opFullReport = True Then

          If SopFullReport = True Then
                    DoCmd.OpenReport "FullReport", acViewPreview, , strCriteria1 & " and " & strCriteria2, acWindowNormal
          Else
                    DoCmd.OpenReport "FullReport", acViewPreview, , strCriteria2, acWindowNormal
          End If
         
        DoCmd.OutputTo acOutputReport, "FullReport", "PDFFormat(*.pdf)", Forms!clientes![LinkDBcloud].Value, False, "", , acExportQualityPrint
        DoCmd.Close acReport, "FullReport", acSaveNo
End If


End Sub

Obrigada!