Pessoal eu tenho um aplicativo onde o usuário faz uma consulta no banco sql digitando uma data inicial e um a data final, trazendo os registros entre aquelas datas, mas eu gostaria de limitar os dias entre as 2 datas, como faço?
tipo: ele digita a data inicial: 01/08/2007 e a data final 31/08/2007, ai o aplicativo traz os dados entre estas datas, mas se ele digitar de 01/08/2007 a 01/09/2007 ele não faz a consulta, tipo limitar ele a 31 dias para menos nunca acima de 31 dias.

Use a função DateDiff comparando as duas datas antes de fazer a consulta. Vc ainda pode fazer uma função no evento LostFocus do campo da data inicial para colocar a data compatível na data final.

Dim dDateIni As Date
Dim dDateFin As Date
Dim iQtdeDias As Integer

dDateIni = "27/06/2007"
dDateFin = Date
iQtdeDias = DateDiff("d", dDateIni, dDateFin)
If iQtdeDias > 31 Then
    MsgBox "Escolha um período com no máximo 31 dias." & _
    vbCrLf & "Quantidade de dias : " & iQtdeDias, vbExclamation + vbOKOnly
End If