Set rs = cn.Execute(sentencia)
Sentencia = "select directorio where nombre like '" & txtNombre.text & "'"