Clear[s, f, sol];
sol = DSolve[{x*D[f[x], x] + Log[x*s]*f[x] + 1 == 0, f[1] == Exp[-s]},f, x][[1, 1, 2, 2]]

f = Interpolation[Table[{s, sol /. x -> 2}, {s, 0.01, 1, 0.01}], InterpolationOrder -> 2]

Plot[f[x], {x, 0.01, 1}]