寻求帮助

Question

Dim MyDatabase As Database
Dim creat As String creat = "create table 贵溪([tm] text(" & cd.Text & "),[rq] datetime,[cd_bz] text(8),[qd_bz] text(8),[pl] text(8),[wd] text(8),[sd] text(9),[wc_1_5] text(18),[wc_1_10] text(10),[wc_1_20] text(11),[wc_1_100] text(6),[wc_1_max] text(11),[wc_05_10] text(9),[wc_05_20] text(10),[wc_05_100] text(11),[wc_05_max] text(12),[wc_08_20] text(14),[wc_08_100] text(14),[wc_08_max] text(12))" 'Set MyDatabase = OpenDatabase(App.Path & "\", False, False, "FOXPRO 2.5")  '生成编号清单数据库
MyDatabase.Execute (creat)
MyDatabase.Close如果要将上面这段创建的“贵溪.dbf”中  [tm] 字段生成 5位整数加3位小数  语句需要怎么改？