Urgente quien me puede ayudar Gracias

[XaRoD]

Es más eficaz el código de Snarfer, ya que con el que has utilizado, si el nombre de archivo lleva los 3 caracteres "zip" en cualquier lugar, no te lo mostrará.
Por ejemplo, si tienes un documento que se llame "Como_zipear_documentos.TXT" no te lo mostrará porque los caracteres "zip" se encuentran en el nombre.
En cambio el código de Snarfer comprueba que sólo los últimos 3 caracteres (o los de la extensión sean "zip").
Aunque se puede reducir un poquillo usando la función de cadena "right":

if right(rs.Fields("Nom_doc"),3)<>&qu ot;zip" then
'mostrar archivos
end if

Salu2