Har brug for hjælp til denne kode (case)

Hej alle....

Jeg har endnu engang brug for jeres hjælp. Jeg har forsøgt mig at lave koden sådan, at jeg alt efter "case" får forskellige overskrifter frem med tilhørende URl.....

Men kan ikke få det til at virke: Kode er:

<%
'Udvælg overskrift udfra sprog gemt i session
Select Case Session("Sprog")
  Case "dk"
      strOver = "Overskrift_dk"
  Case "uk"
      strOver = "Overskrift_uk"
  Case "de"
      strOver = "Overskrift_de"
  Case else
      strOver = "Overskrift_dk"
End Select

'sql sætning, CInt fordi id er et tal
strSQL = "Select * From Historie Where KategoriId = "& CInt(Request.Querystring("id"))

'udføsel af sqlsætning - RS indeholder nu det som opfylder sql sætningen
Set RS = Conn.Execute(strSQL)

' Det der skal skrives ud
  strNavn = RS(Session("sprog")) & "<p> "

' lav et link til historie_indhold.asp med Id-værdien i URL
  strLink = "<a href='historie_indhold.asp?id=" & rs("Id") & "'>" & strNavn & "</a>"

'Hvis RS indeholder noget (Not RS.EOF betyder "ikke er tom")
If Not RS.EOF Then
  'Udskrivning til skærm. Først overskriften der efter teksten
  Response.Write RS(strOver)
  Response.Write " " & rs("Pic") & " " & " " & strLink & " "
End If

%>

den fejlmeddelse jeg får er:
Fejltype:
ADODB.Recordset (0x800A0CC1)
Elementet kan ikke findes i den samling, der svarer til det anmodede navn eller ordenstal.
/historie_kat.asp, line 28

hvor linje 28 er:
strNavn = RS(Session("sprog")) & "<p> "


Hvad søren er det at jeg laver forkert.....

//jan