Creating a Medium Time format in Access

[michelle]

Dear Vb users,

Is it possible to create a Medium Time format in VB for Access?
If yes, please can you send me source?

Wrong source:
Set DB = CreateDatabase(DbSetting, dbLangGeneral)
Set TD = DB.CreateTableDef("MyTable")
With TD
.Fields.Append .CreateField("MyField", DbDate)
End With

How do I create a Medium Time format for field "MyField??????

Nice greetings,

Michelle.