[Access VBA Central] Changing Format type for a Column

[dab_mango]

I created 200 tables using VBA in Access Database, unfortunately I 
formatted column (field) containing Date as "Text".

Can someone post a VBA Code to loop thru all tables and change Field 
Type from "Text" to "Short Date" ?

Here my attempt at it.

Public Sub Tbl_format()

Dim db As Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
'Dim tbl As DAO.TableDef
Set db = CurrentDb()

For Each tbl In CurrentData.AllTables

Set tdf = db.TableDefs(tbl)
Set fld = tdf.Fields("Trade_Date")
fld.Attributes
Next tbl

Thanks in advance