DSolve[{y'[x] +0.4y[x]== 3Exp[-x],y[0]==5},y,x]//Quiet

Plot the solution for different initial values:

Plot[Evaluate[y[x]/.%],{x,0,7}, Filling->Axis]