[VB6] Sql Date

[Fado84]

così non funziona???

Form1.Adodc1.RecordSource = "Select * From ABBONAMENTI_PAGAMENTI Where DATA = '" & Date & "'"

prova così allora... così funziona di sicuro...
dim DataOdierna as string
DataOdierna = Date

Form1.Adodc1.RecordSource = "Select * From ABBONAMENTI_PAGAMENTI Where DATA = '" & DataOdierna & "'"