>>787さんどもです。

　　○ Sub AddNewRecord(Name As String, Age As Integer, Optional AddDate As Date)

で、この際と言っては何なのですがもう一点。

　　× Sub AddNewRecord(Name As String,Optional AddDate As Date, Age As Integer)

Optionalを付加する引数は最後にまとめて指定しないとだめなのでしょうか？
プログラミングの都合上少し勝手の悪い部分が出てきてしまうのですが…。