DSolve[{y'[x] +0.06y[x]== 0,y[0]==10^7},y,x]//Quiet

Plot the solution for different initial values:

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