="S" & Format(Now(),"yymm") & Left(Format(Right(DMax("Statement Number","Plotting Statement","[Statement Number] Like ""S" & Format(Now(),"yymm") & "*"""),3)+1,"000") & "001",3)
ok...