Read Only Error

I'm getting a Read only error when I try to entered into a textbox and the submit it to update my access database? What is wrong with this? (And the properties of Read Only are set to false also...)

Private Sub cmdsave_Click()
Dim reply As String
Data1.ReadOnly = False
Data2.ReadOnly = False
Data3.ReadOnly = False
Data1.Recordset.AddNew
Data2.Recordset.AddNew
Data3.Recordset.AddNew
reply = MsgBox("Do you want to Submit another Problem", vbYesNo)
If reply = vbYes Then
clearfields
Else
MsgBox "Thank You."
Unload Me
End If
End Sub


I have a textbox "txtproblem", which you enter info into the click the submit button, which runs the above code. data1.recordset.addnew is giving me the Read Only error...

[DiGiTaIErRoR]

READ ONLY means you can only view the file but not WRITE!

------------------
DiGiTaIErRoR
VB, QBasic, Iptscrae, HTML
Quote: There are no stupid questions, just stupid people.