Visual Basic - Error 425

Hola a todos. Estoy empezando a haver mis pinitos con Vbasic y tengo un problema. Con el codigo que adjunto a continuacion se inicia una busqueda en una base de datos de Access, originada por un evento onChange de un combo Box, pero me da error 524 en la autmatización que se está ejecutando. He intentado incluir un manejador de error como podeis ver a continacion, pero Vbasic sigue interrumpiendo el programa en el punto en que la busqueda ha sido infructuosa.
No sé como solventarlo...supongo que será algo bastante obvio pero con la info de que dispongo no soy capaz.
Si alguien me puede ayudar se lo agradecería.
Un saludo.

Private Sub cmbCampo_Click()
On Error GoTo NoEncontrado
Dim strMensaje, strCadena As String
strMensaje = "Introduce la cadena para buscar "
Select Case cmbCampo.ListIndex
Case 0
datSocios.Recordset.Index = "apellido1"
Case 1
datSocios.Recordset.Index = "apellido2"
Case 2
datSocios.Recordset.Index = "nick"
Case 3
datSocios.Recordset.Index = "nombre"
Case 4
datSocios.Recordset.Index = "nsocio"
End Select
strCadena = InputBox(strMensaje, "Búsqueda")
datSocios.Recordset.Seek "=", strCadena
Exit Sub
NoEncontrado:
If Err.Number = 524 Then
MsgBox "No se han encontrado coincidencias.", , "Búsqueda infructuosa"
datSocios.Recordset.MoveFirst
Resume Next
End If
End Sub