runtime error 3426

hi, i have this problem and it is very annoying. when someone puts a special character into a textbox on a form (see attatchement) there is a runtime error.

here is my code:

Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
With Data1.Recordset
If MsgBox("Delete Record?", vbYesNo) = vbYes Then
.Delete
.MovePrevious
Else: MsgBox ("Record Not Deleted")
End If
End With
End Sub


Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\MagicManagerDatabases.mdb"
Data1.RecordSource = "Tricks and Routines"
End Sub

sorry for some reason i cannot add the attatchments. hmmmm let me see....

here the attatchments are

anyone?

please can someone try to help me??

Look at http://www.vbtutor.net/vbtutor.html lessons 19-22