帮我看看这程序！！！

Question

Option Explicit
Dim MyDataBase As Database
Dim MyTabledef As Tabledef
Dim MyField As field
Dim fieldnum As Double
Dim datapath As String
Dim tablename As StringPrivate Sub cmdAddTab_Click()
   If cmdAddTab.Caption = "添加表" Then
      tablename = InputBox("输入表名称", "表名称")
   If tablename$ = "" Then
      string1$ = MsgBox("未创建表！", bvOkOnly, "警告")
   Else
      Set MyTabledef = MyDataBase.createTabledef(tablename)
      cmdAddTab.Caption = "添加字段"
    End If
    
    If cmdAddTab.Caption = "添加字段" Then
      fieldnumber$ = InputBox("输入字段数", "字段数")
   If fieldnumber$ = "" Then
      string1$ = MsgBox("未输入字段！", bvOkOnly, "警告")
   Else
      fieldnum = Val(fieldnumber$)
      Dim temp As Double
      Label1.Caption = "输入字段名"
      For i = 1 To temp - 1
         Load Text(i)
         Text(i).Top = Text(i - 1).Top + 400
         Text(i).Visible = True
         Text = ""
         Next
    cmdOk.Enabled = True
    End If
End SubPrivate Sub cmdNew_Click()
   datapath$ = Input("输入新建的数据库名称", "数据库名称")
   If datapath$ = "" Then
     string1$ = MsgBox("未建数据库！", bvOkOnly, "警告")
   Else
     Set MyDataBase = workspades(0).createdatabase(datapath$, dblanggeneral)
     cmdAddTab.Enabled = True
   End If
End SubPrivate Sub cmdOk_Click()
   For i = 0 To field - 1
      Set MyField = MyTabledef.createfield(Text(i), dbinteger)
      MyTabledef.fields.append MyField
      Next
      MyDataBase.tabledefs.append MyTabledef
End SubPrivate Sub Form_Load()
   cmdNew.Caption = "新建"
   cmdAddTab.Caption = "添加表"
   cmdOk.Caption = "确定"
   cmdAddTab.Enabled = False
   cmdOk.Enabled = False
End Sub
为什么运行的时候显示用户定义类型未定义呢？