Tente um dos dois código a seguir:
Primeiro ------------------------------------------------------------------
("Select * From tabela where cliente='" & text1.text & "' and data between "# & format(data1.text, "mm/dd/yyyy") & "# and "# & format(data2.text, "mm/dd/yyyy") & "#")
---------------------------------------------------------------------------
Segundo ------------------------------------------------------------------
Set TBHistorico = ConexaoBD.Execute("select * from tbhistorico where data = #" & DTData.Value & "# and empresa = '" & cboEmpresa.Text & "'")
---------------------------------------------------------------------------
O primeiro não tentei, mais o segundo eu usei em um programa que fiz e funcionou.
