Consulta SQL VBA

Ola pessoal tudo bem?

Estou com um problema, estou fazendo um estatistica por intervalo de data pelo VBA, mas ele nao esta dando as informacoes corretas Ex:

tabela manutencao

setor_codigo

setor_desc

tabela manutencao

manu_codigo

manu_setor

manu_data

Fazendo a contagem de registro com criterio de periodo de data (data1 = 01/07/2010) e (data2 = 01/07/2010)

Teria que me mostrar as informaçoes abaixo

setor: Total

engenharia 02

manutencao 03

Ao contrario disso, ele nao me mostra nada.

Porem se eu coloco (data1 = 01/07/2010) e (data2 = 31/07/2010)

ele me mostra o total de tudo, o qual nessa situacao, está correto

setor: Total

engenharia 07

manutencao 08

Abaixo segue meu codigo, onde estou errando para ele fazer o calculo correto?

Private Sub cmdcalcular_Click()

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim sql As String

Dim mensagem As String

Dim data1 As String

Dim data2 As String

data1 = "#" & txtdata1 & "#"

data2 = "#" & txtdata2 & "#"

Set db = CurrentDb()

sql = "SELECT tb_setor.setor_desc, Count(tb_manutencao.manu_cod)AS total "

sql = sql & "FROM tb_setor INNER JOIN (tb_manutencao) ON (tb_setor.setor_codigo) = (tb_manutencao.manu_setor)"

sql = sql & "WHERE (((tb_manutencao.manu_data) between " & (data1) & " And " & (data2) & " )) "

sql = sql & "GROUP BY (tb_setor.setor_desc)"

Set rs = db.OpenRecordset(sql)

rs.MoveFirst

mensagem = "HG - TOTAL DE SOLICITACAO POR SETOR" & Chr(13) & Chr(10)

mensagem = mensagem & "****************************************************" & Chr(13) & Chr(10)

Do While Not rs.EOF

mensagem = mensagem & rs.Fields("setor_desc") & " = "

mensagem = mensagem & FormatNumber(rs.Fields("total")) & Chr(13) & Chr(10)

rs.MoveNext

Loop

Me![txt_estat_setor].Value = mensagem

Me![txt_estat_setor].ScrollBars = 2

Me![txt_estat_setor].SetFocus

Grato

Edson