Validaciones.

[principefreddy]

bueno lo resolvi de esta manera y me funciona bien.
ced = Trim(cedula.Text)
c = "trim(cedula)='" & Trim(ced) & "'"
empleado.Recordset.FindFirst c
If Not empleado.Recordset.NoMatch Then
MsgBox "Cedula Introducida Ya Existe", vbInformation, "Atencion"
cedula.Text = ""
Else
If Len(cedula.Text) >= 8 Then
If KeyAscii = 13 Then

nombres.Enabled = True
apellidos.Enabled = True
fecha.Enabled = True
civil.Enabled = True
sexo1.Enabled = True
nacionalidad1.Enabled = True
hijos.Enabled = True
telefono.Enabled = True
email.Enabled = True
txtinstruccion.Enabled = True
nombres.SetFocus

End If
End If
End If