DAO动态创建数据库后打开出错

Question

Dim mydb As DAO.DatabasePrivate Sub Command1_Click()
Dim myfield As Field, mytable As TableDef
If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" Then
    Set mydb = CreateDatabase(App.Path + "\" + Text1.Text, dbLangGeneral) '创建数据库
    Set mytable = mydb.CreateTableDef(Text2.Text) '创建表
    Set myfield = mytable.CreateField(Text3.Text, dbText, 50) '创建字段
    mytable.Fields.Append myfield '将字段添加到表中
    mydb.TableDefs.Append mytable '将表添加到数据库中
    Unload Me
ElseIf Text1.Text = "" Then
    MsgBox "请输入数据库名称"
ElseIf Text2.Text = "" Then
    MsgBox "请输入表名"
ElseIf Text3.Text = "" Then
    MsgBox "请输入字段名"
End If
End SubPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Form_Load()
'初始化设置控件的相关属性
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
动态创建一个数据库以后，用数据管理器打开的时候报文件格式错误，3343
这个是什么原因啊！！！

Answer 1

这个要看一下你使用的Access版本了
检查一下创建的文件版本与你使用的版本情况
比如你那种方式可能不能访问高版本的Access,如2007或2003

Answer 2

好像他并没有使用access啊？他是用vb代码创建的数据库啊。我就是这样创建的，没错。从始至终没有使用access

Answer 3

好像他并没有使用access啊？他是用vb代码创建的数据库啊。我就是这样创建的，没错。从始至终没有使用access