建立数据库，并且保存在文件？

Question

我想把控件中的数据保存在数据库中，点击保存按钮，创建一个数据库到指定路径的文件夹，请问出现文件名无效的错误，为什么？？？
代码如下：
Set mydb = CreateDatabase(App.Path & "E:\界面\Data\01.mdb")
Set mytable = mydb.CreateTableDef("设置1")
Set myfield = mytable.CreateField("通道", vbString)
mytable.Fields.Append myfield
mydb.TableDefs.Append mytable
mydb.Close
Set mydb = Nothing

Answer 1

Set mydb = CreateDatabase(App.Path & "\界面\Data\01.mdb") 

Answer 2

我把数据库放工程一个文件夹了，还是不行。
想把几个Text的内容保存到Access中，就是把他们的数值当做系统设置保存起来，有2个按钮：保存设置、读取设置：现在我通过把TEXT控件的内容保存入数据库再调用来实现，代码如下 
读数据库显示在TEXT控件： 
Set mydb = OpenDatabase(App.Path & "\db1.mdb ", 0, False)  
Set myrs = mydb.OpenRecordset("01") 
Text1.Text = myrs("幅度") 
myrs.Close 
mydb.Close 
错误类型：类型不匹配           
创建并写进数据库的 
Dim mydb As Database 
Dim mytable As TableDef 
Dim myfield As Field 
Dim myrs As Recordset 
Dim msg As Long 
Set mydb = CreateDatabase(App.Path & "\db5.mdb ", 0, False)   
Set mytable = mydb.CreateTableDef("设置1") 
Set myfield = mytable.CreateField("[Name]", dbText, 8) 
mytable.Fields.Append myfield 
mydb.TableDefs.Append mytable 
mydb.Close 
Set mydb = Nothing 
错误类型：找不到可安装的ISAM
我用的是access数据库