Visual Basic - Alguien podria ayudarme??? Urgente!!!

Cuando lleno todos los casilleros de formulario de altas lso textox y presiono registrar, comienza a pasarlos a la base de datos ejemplo
.Recordset!cve_esc = Trim(cmbcve_esc_al.Text)
.Recordset!grado = Trim(txtgrado_al.Text)
pero al encontrar un textbox con datos equivocados ejemplo:
If DTPicker2.Year - 6 < DTPicker1.Year Then
.Recordset!f_nacimiento = Trim(DTPicker1.Value)
Else
MsgBox "Vuelva a escribir la edad", vbCritical, "Fecha de nacimiento no valida"
DTPicker1.SetFocus
DTPicker1.se
End If
quiero que no añada datos a la base de datos, si no que se regrese al casillero donde tengo el error, pero son añador los datos a la base de datos... que necesito hacer...

Puedes comprobar al principio de la rutina, donde tengas para añadir a la BD, que los datos necesarios son correctos, y cuando no lo son aparte de mostrar el mensaje con MSGBOX, puedes hacer que el cuadro de texto que tiene mal los datos , quede enfocado, y despues salir de la rutina. de esta forma.

Sub Anadir_datos
IF NOT DTPicker2.Year - 6 < DTPicker1.Year Then
.MsgBox "Vuelva a escribir la edad", vbCritical, "Fecha de nacimiento no valida"
DTPicker1.SetFocus
EXIT SUB
........

End If

end Sub