This is what I have now. I get a "Sub or Function not defined" error.

VB Code:
  1. txtfield(3) = Format(Now(), "mm")

  2. txtfield(4) = Format(Now(), "yyyy")