我想把几个Text的内容保存到Access中，就是把他们的数值当做系统设置保存起来，有2个按钮：保存设置、读取设置：现在我通过把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
'msg = MsgBox("将设置参数存入硬盘？", vbOKCancel, "Confirm")
'If msg Then
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
现在是老出现类型不同的错误，我用的是access数据库
|
