DataAnterior = DLookup ("[DataRealizada]", "TblPassosStatus", "[CodPassosStatus] = " & DateAdd("d", -1, Forms![FFiltros]![CodPassosStatus])
'If it is a date then you probably will need the octothorpes
DataAnterior = DLookup ("[DataRealizada]", "TblPassosStatus", "[CodPassosStatus] = [B][COLOR=red]#[/COLOR][/B]" & DateAdd("d", -1, Forms![FFiltros]![CodPassosStatus] [B][COLOR=red]& "#"[/COLOR][/B])