Ricercare data a ritroso

[optime]

se ho ben capito

strDATA = Date()

sSQL = "SELECT TOP 1 data_registrazione  "
sSQL = sSQL & " FROM "
sSQL = sSQL & " tbl "
sSQL = sSQL & " WHERE "
sSQL = sSQL & " data_registrazione  < '" & strDATA  & "' "
sSQL = sSQL & " ORDER BY ID DESC "