Visual Basic - problema con adodc.recordset.find

Tengo un problema que al intentar controlar que no haya claves duplicadas con el siguiente codigo

Private Sub txtMatricula_LostFocus()

If altas = True Then
If txtMatricula.Text <> "" Then
cadena = "matricula=" & Val(txtMatricula.Text) adoAlumnos.Refresh
With adoAlumnos.Recordset
.MoveFirst
.Find cadena
If Not .EOF Then
MsgBox ("Alta cancelada.Ya existe un alumno con ese numero de matricula")
.CancelUpdate
altas = False
End If
End With
End If
End If
End Sub

___________________________________________________________

Bien el problema es el siguiente si el .find encuentra la matricula buscada me rellena el resto de campos con los datos del alumno me saca el mensaje y eso bien.
Pero si intento insertar una matricula inexistente al no encontrar la matricula el .find me rellena los campos a vacio con lo cual no puedo insertar nuevos alumnos. Hay alguna manera de hacer que el .find no me rellene automaticamente las cajas de texto??
Venga gracias