adding/changing a memo field as Rich Text

[Jay]

For a new version of my application Ineed to add a memo field as Rich
Text. The following code adds the field but I don't know the syntax to
format it as Rich Text

Set fld = .CreateField("email_message", dbMemo)
.Fields.Append fld

I also have an existing memo field that is formatted as Plain Text that
I need to change to Rich text.

My code already opens the proper Tabledef I just need the code for the
Text Format property.

Thanks.