dao创建数据库添加字段错误13,类型不匹配

'以下为建立数据库及文件夹!
Dim myws As Workspace
Dim mydb As Database
Dim onetd As TableDef        '申明onetd为数据表型变量Dim oneflds As Field         '声明oneflds为字段型变量
Set myws = DBEngine.Workspaces(0)                '创建数据库
Set mydb = myws.CreateDatabase(App.Path & "\" & Y & "\" & Y & m & "\" & wjj & "\" & wjj & ".mdb", dbLangGeneral)
'Set onetd = mydb.CreateTableDef
Set onetd = New TableDef          '建立新表Set oneflds = onetd.CreateField("时间", dbDate)  '设计字段
onetd.Fields.Append oneflds                      '将新设置的字段加入到数据表
Set oneflds = onetd.CreateField("电压(V)", dbSingle)
onetd.Fields.Append oneflds
Set oneflds = onetd.CreateField("电流(A)", dbSingle)
onetd.Fields.Append oneflds
Set oneflds = onetd.CreateField("站点编号", dbInteger)
onetd.Fields.Append onefldsonetd.Name = wjj   '设置数据表名称mydb.TableDefs.Append onetd                  '将数据表加入到数据库
错误提示从字段设计开始:
Set oneflds = onetd.CreateField("时间", dbDate)  '设计字段.