Solving a difference equation involving summation expressions-Implicit output

I am trying to solve a difference equation involving summation expression with the following code:

RSolve[{s[n + 1] - (s[n]*(Z/A)) == Sum[((1/A)*((1 - (F*L1))^(n - m))*(Q + (YY* s[m - 1]) - (PP*s[m]) + VV)), {m, 2, n}], s[0] == 0}, s[n], n]

where the capital letters show constant parameters. Mathematica gives a general solution which is very long and contains functions, such as DifferenceRoot in it. In fact, the equation is not solved completely. However, I need the closed-form for s[n].

Can anybody help me to find the closed-form solution?
By the way, I want Mathematica to solve the difference equation starting at point 1, not at point 0. How can I code it with RSolve?
Many thanks.