CreateField（）中的三个参数为字符串变量将如何设定

Question

如下代码，运行时提示错误，数据类型不匹配
    Dim dbName As Database
    Dim tdName As TableDef
    Dim fdName As Field
    
    Set dbName = OpenDatabase(App.Path & "\mdb\Smr.mdb")
    Set tdName = dbName.CreateTableDef(tableName)
    
    For i = 0 To 1
        If byout(i * 5 + 2) = "1" Then
            Set fdName = tdName.CreateField(byout(i + 1), dbText, 10)
            tdName.Fields.Append fdName
        End If
    Next i    dbName.TableDefs.Append tdName
CreateField（）中的三个参数为字符串变量将如何设定。

Answer 1

或者说，有没有办法，在代码创建表的时候，字段的定义为变量，由另外的地方来赋值。