duda sobre Prestamos / devoluciones

[fede_rosario]

supuestamente eso lo haces al apretar un boton, bueno para validar si existe el libro haces
dim rstemp as new adodb.recordset ' este es 1 recordset temporal

sql="select * from libros where NumeroDeLibro=" & text2(2).text & ""
rstemp.open sql ,cn ' cn es el objeto conexion q usas
if rstemp.recordcount < 1 then
msgbox "El libro no existe"
goto sale:
end if
'y aca si existe validas el estado del libro es decir
estado=rstemp.fields("estado")
Cmbestado.enabled=estado

goto sale:

fijate y me avisas me dio alborotado pero a mi me funciona