Bem, intervalo de datas, é um pouco complicado, o melhor seria jogar para uma tabela temporária, percorrendo a tabela original, e verificando mes e dia do intervalo, depois te trazer os resultados, mas tente assim, não testei, mas deve funcionar:

Dim sSQL As String

Dim sDIA As String

Dim suDIA As String

Dim sMES As String

 

sSQL = "Select * From TABELA Where Str(Day(DATA)) Between '" & sDIA & "'"

sSQL = sSQL & " And Str(Day(DATA)) '" & suDIA & "'"

sSQL = sSQL & " And Str(Month(DATA)='" & sMES & "'"

 

Se a Consulta for em 2 meses, talvez tenha que usar uma variável para os meses do tipo Integer, use sua imaginação, e teste com >= e <= .

Mas este tipo de teste >= e <= também funciona com Strings.

Agora veja, se não me engano aqui na VBWEB, tem uma dica sobre isto.

 

vlu//