1: 2: 3: 4:
calcdate = (Date - 3) strsql = "Select * from [ExportDatamain] WHERE datevalue([DateExported]) = " & "#" & calcdate & "#" Set Nst = db.OpenRecordset(strsql, dbOpenDynaset, dbSeeChanges)