Anybody know why these records won't update? Here is my code. I know the variables are right and all the fields are also correct.

Data1.DatabaseName = drive & "\" & folder & "\testdata.mdb"
Data1.ReadOnly = False
Data1.RecordSource = "tblTestData"

Data1.Recordset.AddNew

With Data1.Recordset
.Fields("Title") = title
.Fields("Observed:") = observed
.Fields("DDI Reference No") = filecounter
.Fields("Steps to Reproduce:") = newsteps
.Fields("Tester") = tester
.Fields("Script") = script
.Fields("System") = system
End With


If Err Then
MsgBox (Error): Exit Sub
Else
Data1.Recordset.Update
End If

If Err = 3022 Then
n = title
MsgBox "Duplicate Title: Bug already Submitted" _
& n & ". Please Enter a New bug with a New Title"
Exit Sub
End If

If Err Then MsgBox (Error)
Data1.Recordset.MoveLast