vb 添加数据不成功，请高手指导
用vb 编了一个添加文件功能的窗口，可是运行时报错

代码如下：

Private Sub Command2_Click()
Unload Form2
Form1.Show
Form1.Enabled = True
End Sub

Private Sub Command1_Click()

On Error Resume Next

Form1.Data1.Recordset.AddNew

Form1.Data1.Recordset.Fields(1) = Form2.Text1.Text
Form1.Data1.Recordset.Fields(2) = Form2.Text2.Text
Form1.Data1.Recordset.Fields(3) = Form2.Text3.Text
Form1.Data1.Recordset.Fields(4) = Form2.Text4.Text

Form1.Data1.Recordset.Update

If Err.Number <> 0 Then
Beep
MsgBox "输入数据错误，请重新输入", vbCritical + vbOKOnly, "错误信息"
Exit Sub
Else
Form1.Data1.Recordset.Bookmark = Form1.Data1.Recordset.LastModified
End If

Foem1.Enabled = True
Unload Form2
End Sub

Private Sub Form_Load()

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""


End Sub

报错：


请问怎样解决？

[解决办法]
Foem1.Enabled = True???????
form1.enabled吧
[解决办法]
Private Sub Command1_Click()

'On Error Resume Next
msgbox Form1.Data1.Recordset.recordcount '看这个是否能显示 Form1.Data1.Recordset.AddNew

Form1.Data1.Recordset.Fields(1) = Form2.Text1.Text
Form1.Data1.Recordset.Fields(2) = Form2.Text2.Text
Form1.Data1.Recordset.Fields(3) = Form2.Text3.Text
Form1.Data1.Recordset.Fields(4) = Form2.Text4.Text

Form1.Data1.Recordset.Update

[解决办法]
你至少要知道是什么错误：

If Err.Number <> 0 Then
Beep
MsgBox "输入数据错误，请重新输入 " & Err.Number & ":" & Err.Descriptor, vbCritical + vbOKOnly, "错误信息"
Exit Sub
Else
Form1.Data1.Recordset.Bookmark = Form1.Data1.Recordset.LastModified
End If

或者把 On Error Resume Next 注掉，看看究竟是什么错误。

另外，试试：

Form1.Data1.Recordset.Fields(0) = Form2.Text1.Text
Form1.Data1.Recordset.Fields(1) = Form2.Text2.Text
Form1.Data1.Recordset.Fields(2) = Form2.Text3.Text
Form1.Data1.Recordset.Fields(3) = Form2.Text4.Text

[解决办法]

探讨

这是Data1的：

[解决办法]
不好意思看错了，看看以下方式：
Can't update. Database or object is read-only. (Error 3027)


You tried to save changes in a database that was opened for read-only access.

The database is read-only for one of these reasons:

You used the OpenDatabase method and opened the database for read-only access.


The database file is defined as read-only in the operating system or by your network.


The database file is stored on read-only media.


In a network environment, you do not have write privileges for the database file.


When working with a secured database, the database or one of its objects (such as a field or table) may be set to read-only. You may not have permission to access this data with your user name and password.

Close the database, resolve the read-only condition, and then reopen the file for read/write access.

[解决办法]
http://topic.csdn.net/u/20091129/04/87fa21c9-1004-4c03-80c9-74e4c0a0ba0b.html
这个是我最近做的数据库录入的案例，CSDN上也曾经遇到问题，但是已经通过了，希望能帮到你啊