Thank you both very much. I have found a solution myself but with more 'hassle' around it then yours.
f[s_] := (s^2 + 3) / ((s - 1)^2 (s + 1)) == A1 / (s - 1) + A2 / (s - 1)^2 + A3 /( s + 1)
Solve[ { f[s] /. s -> 0, f[s] /. s -> 2, f[s] /. s -> 3}, {A1, A2, A3}]
{{A1 -> 0, A2 -> 2, A3 -> 1}}
Greetings,Chiel Geeraert (Netherlands)