[Resolvido]Ajuda no critério entre datas

Tenho um formulario para fazer estatistica entre datas, em que as datainicio e datafim são introduzidas noutro formulario e são essas datas que quero que balize as contagem de registos.

o codigo que tenho é o seguinte:

Dim inicio As Date
Dim fim As Date

inicio = Forms!Buscas1!DataInicio
fim = Forms!Buscas1!DataFim

Set rs = CurrentDb.OpenRecordset("Select DISTINCT Buscas.Nr1 from Buscas WHERE Nr1<>Null And Data Between #" & inicio & "# And #" & fim & "#")

If rs.EOF Then
   FindRecordCount = 0
   Else
   rs.MoveLast
  FindRecordCount = rs.RecordCount
Me.ContarNr1 = FindRecordCount
End If

rs.Close
Set rs = Nothing

o que me acontece é que baliza a datafim, mas a datainicio não baliza, ou seja, conta tudo o que está antes.
gostaria se possivel que me ajudassem ou dissessem o que está mal para poder corrigir.
Muito Obrigado

Olá Oscar Santos,

Teste assim:

Código:

Set rs = CurrentDb.OpenRecordset("SELECT Buscas.Nr1 FROM Buscas WHERE Buscas.Nr1 Is Not Null AND Buscas.[Data]>=#" & Format(inicio, "mm/dd/yyyy") & "# And Buscas.[Data]<=#" & Format(fim, "mm/dd/yyyy") & "#")

A formatação da data mantenha à Americana nas consultas o Access é um pouco patriota.  
Abraço

Ok, vou testar e darei feedback.
Normalmente lembro disso, mas desta vez nem testei essa hipótese.
Abraço

Olá, mais uma dica.
Evite usar como nome dos campos Palavras Reservadas:
 NOME
 NAME
 DATA
 DATE

Opte antes por:
NomeCliente
DataMovimento

Para mais detalhes, veja:
https://www.maximoaccess.com/t198-palavras-reservadas-do-access
https://support.office.com/pt-pt/article/Símbolos-e-palavras-reservadas-do-Access-ae9d9ada-3255-4b12-91a9-f855bdd9c5a2
Abraço

A funfar em pleno.
Obrigado pelo refresco de memória.
Abraço

Olá Óscar, obrigado pelo retorno.
Abraço