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...

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.