I'm getting a read error when I try to add. Can you tell me what I have wrong.

Private Sub cmdAdd_Click()
Dim i As Integer
On Error Resume Next
cn.BeginTrans
If Err > 0 Then
cn.RollbackTrans
rs.Close
Set rs = Nothing
Exit Sub
End If
For i = 0 To 2
Text1(i) = ""
Next i
Text1.SetFocus
cmdAdd.Enabled = False
DisplayContents
End Sub

Thank you.