Visual Basic - Cancelar addnew de un data

Tengo un problema con un programa, el cual al momento de dar el click en un command deve de activar 8 text box, pero si la tecla presionada es "esc" o la tecla de escape deve de deshabilitar los textbox hasta ahi no hay problema, mi problema es que despues de eso le doy al data una instruccion como movenext, previous,first, o last me manda un error "3426" que dice "esta accion fue cancelada por el objeto asociado y pues no se ni por que me de ese error, aqui abajo les pongo el codigo fuente que utilizo para mi programa

uso un control data, 8 text box, 8 labels y dos command buton

Option Explicit
Public pregunta
Private Sub Command1_Click()
If Text1.Enabled = False Then
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
Else
pregunta = MsgBox("¿Estan correctos los datos?", 20, "Seguro")
If pregunta = vbYes Then
Data1.Recordset.AddNew
Data1.Recordset.MovePrevious
Text1.Enabled = Not True
Text2.Enabled = Not True
Text3.Enabled = Not True
Text4.Enabled = Not True
Else
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
End If
End If
End Sub

Private Sub command1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 116 Then
Data1.Recordset.MoveFirst
ElseIf KeyCode = 117 Then
If Data1.Recordset.BOF = True Then
MsgBox "Este es el Principio de la lista de clientes"
Else
Data1.Recordset.MovePrevious
End If
ElseIf KeyCode = 118 Then
If Data1.Recordset.EOF = True Then
MsgBox "Este es el fin de la lista de clientes"
Else
Data1.Recordset.MoveNext
End If
ElseIf KeyCode = 119 Then
Data1.Recordset.MoveLast
End If
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Command1.SetFocus
End If
End Sub
espero me puedan ayudar.

Gracias