[Resolvido]SELECT com Data

Boa tarde pessoal.

Estou tentando criar uma consulta com SELECT onde a seleção é feita através de data porém não quer dar certo de forma algum, o que estou fazendo está abaixo.


Dim vData As Date
Dim vDataAtual As Date

vData = CDate(DateDiff("d", 7, Date))
vDataAtual = Date

lstAtividade.RowSource = "SELECT Atividade, DataInicio_Atividade FROM tblAtividade_Task WHERE (DataInicio_Atividade Between (#'" & vData & "'#) And (#'" & vDataAtual & "'#)) ORDER BY Tema"


Alguém poderia me ajudar?

Obrigado.

Moçada consegui encontrar meu erro, estava na construção, estava colocando apostolo no meio da construção e com datas não se usa o apostolo (#'" & vDataAtual & "'#)).

Agora está ocorrendo o seguinte, a consulta é realizada, porém a data está sendo invertida, por exemplo, a variável me traz 1/7/11, que á data correta na seleção, na consulta ela está invertendo para 7/1/11, alguém saberia como faço para resolver isso?

Valeu.

Utilize Format(CampoData,"mm-dd-yyyy") ou Format(CampoData,"dd-mm-yyyy")

Olá Alexandre, muito obrigado pela dica.

Ainda não consegui, a consulta não me traz nenhum resultado, coloquei da seguinte forma.

Dim vData As Date
Dim vDataAtual As Date

vData = DateDiff("d", 30, Date)
vDataAtual = Date

lstAtividade.RowSource = "SELECT Tema, Atividade, DataInicio_Atividade as Início FROM tblAtividade_Task WHERE (DataInicio_Atividade Between (#" & Format(vData, "dd/mm/yy") & "#) And (#" & Format(vDataAtual, "dd/mm/yy") & "#) ORDER BY Tema"

Agora se no lugar do valor da variável vData insiro o seguinte #1/7/11# a seleção é realizada perfeitamente, por este motivo acredito que o problema está na variável vData.

Obrigado pela ajuda.

Pessoal, consegui resolver o meu problema da seguinte forma. Substituí as condições do WHERE por:

BETWEEN CDate('" & Date - 7 & "') And CDate('" & Date & "')

Funcionou perfeitamente, lembrando que o 7 representa a data de uma semana antes e que é a quantidade fixa de dias que quero a busca.

Obrigado.

Resolvido.

Obrigado por ter tido a preocupação do retorno. O Fórum e os colegas agradecem.