codice:
'questa query seleziona tutte le date comprese tra la data odierna e tra 3 mesi
'Date : prende come valore la data del sistema
nel caso di altre date sarebbe: Format(#01/01/03#, "mm/dd/yyyy") 
'stai attento alla chiusura delle stringhe ed agli & 
Dim sql As String
sql = "select * FROM authors where (dalal between" & Format(Date, "mm/dd/yyyy") & " and " & Format(DateAdd("m", 3, Date), "mm/dd/yyyy") & ";"
rs.Open sql
ti conviene far visualizzare il valore del format per vedere le date...
lo potresti fare con delle:
Msgbox Format(Date, "mm/dd/yyyy")