ciao,
estrai già da sql i dati filtrati sulle date, modifica il codice così:


codice:
    SQL = "select * from Appuntamento where Cliente = '" & cmbcliente.Text & _
    "' and DataApp <= #" & Date & "#"
    'date è la data di oggi
    Set rs = db.OpenRecordset(SQL)

ciao, il problema di ieri è a posto?