Visual Basic - ¿porque no funciona esto?

hola que tal de abtemano muchas gracias por contestar esta pregunta,aqui va¿esstoy usando una funcion para buscar un libro en una base de datos,que es la siguiente:
private sub textt_codigo_libro_keypress)keyascii as integer)
on error goto linea_error
if keyascii=13 then
condicion="codigo_libro=" & val(text_codigo_libro.text)
data1.recordset.findfirst condicion
if data11.recordset nomacth=true then
msgbox("el codigo del libro no fue encontrado")
text_codigo_libro.text
text_codigo_libro.setfocus
exit sub
end if
end if
linea_erro:
if err.number=100 then
msgbox("el codigo del libro no es correcto"")
textt_codigo_libro.text
textt_codigo_libro.setfocus
end if
end sub
despues de haber hecho esto hago lo siguiente
sub mostrar()
text_titulo.text=data_libros.recordset("titulo")
text_autor.textt=data_libros.recordset("autor")
text_tema.textt=data_libros.recordset("tema")
end sub
y despues de haber hecho esto escribo el codigo del libro en la caja de texto y primo enter y no pasa nada, si alguien puede ser tan amable de indicarme cual es el problema se los agradece3ria mucho de antemanos muchas gracias

Si buscas una cadena será así:
Dim criterio
criterio = "libro = '" & Text1 & "'"
'Fíjate que hay una comilla simple (') y seguido una doble (") y al final hay una doble("), una simple (') y otra doble (").

Si es numérico será así:
Dim criterio
criterio = "libro = & Val(Text1) & "

Data1.recordset.FindFirst criterio
If Data1.recordset.NoMatch Then
MsgBox "No aparece"
Else
procesar lo que convenga
End If