Update without Addnew event error. The unfortunate part about this error is that I don't know where to put the Addnew string at. I get this error when I click on a Save button. The save button is supposed to update data in a database, from the info that was entered into the textbox. here is the save button code...

Public Sub savefile()
Dim reply As String
Data1.ReadOnly = False
Data2.ReadOnly = False
Data3.ReadOnly = False

Data1.Recordset.Update
Data2.Recordset.Update
Data3.Recordset.Update
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

Maybe I'm going at this completely wrong so please any guidance would be appreciated.