Ciao skipperfun
vedi se così risolvi:

codice:
' Periodo giorno prima e giorno dopo, rispetto a quello cliccato:
        RST2.Source = "SELECT Titolo, Nome, Cognome, Giorno, Mese, Anno, OraH FROM TblAppunta  WHERE DataVisita Between #" & Format(FirstDate2, "mm/dd/yyyy") & "# And #" & Format(FirstDate1, "mm/dd/yyyy") _
            & "#  Order by Giorno, OraH " & ";"
        RST2.Open , Cns2, adOpenDynamic, adLockOptimistic