Visual Basic - Error de ejecucion en sentencias If... then anidad

Tengo el sgte codigo, pero me da el error de que no se encuentra sub o funcion:
Private Sub txt_movil_LostFocus(Index As Integer)
Select Case Index
Case 0
Dim Criteria As String
Dim x As Integer
Dim temp_dt As String
Dim temp_dtr As String
Dim mensaje As Integer
mensaje = MsgBox("No se encuentra empleado: " & x & vbCrLf & "¿Desea crearlo?", vbInformation + vbYesNo, App.Title)
Set rs9 = DB.OpenRecordset("Empleados_1", dbOpenDynaset)
Set rs8 = DB.OpenRecordset("Empleados_2", dbOpenDynaset)
x = txt_movil(0).Text ' Coge el objeto seleccionado
'temp_dt = Lista_razas.List(x) ' Coge el text seleccionado
temp_dtr = Trim$(x) ' Nos aseguramos que no haya más caracteres de los debidos.
Criteria = "[Nº Empleado] = '" & temp_dtr & "'" ' Pone el criterio de busqueda
rs9.FindFirst Criteria ' Busca la primera que coincida
rs8.FindFirst Criteria
If rs9.NoMatch Then
If rs8.NoMatch Then
mensaje
If mensaje <> vbYes Then
rs4.CancelUpdate
Exit Sub
Else
Load frm_Empleados
frm_Empleados.Show
rs8.Close
End If
End If
rs9.Close
End If
End Select
End Sub

Los RS 8 y 9 ya los tengo dimesionados en un modulo aparte.
ALguien sabe que me he pasado por alto???
Gracias

Marcos, en realidad a nivel de codigo no se encuentra mucho, pero algunas sugerencias que quiza te aclaren el codigo o mejoren la situacion.
- defini las variables antes del select.
- arma un and en lugar de los 2 if de los nomatch.
- no te olvides de cerrar el rs8 (a menos que despues lo uses)

Suerte,
Daniel.