y algo mas
Código:
sql = "select Nombre,Telefono,Fax,Email,Direccion from Directorio where Nombre like '%" & txtNombre.Text & "%'"
las apostrofes van de lado afuera...
bueno eso pasa por no poner mucha atencion..
disculpa por las errones respuestas, pero errar es de humanos y aqui va la respuesta a tu problema..