VB Code:
  1. TDBList1.Columns("HireDate").NumberFormat = "Medium Date"