Elementet kan ikke findes i den samling

Beskeden: Elementet kan ikke findes i den samling, der svarer til det anmodede navn eller ordenstal.
/billedDBtest/indsaetbilleder.asp, line 42
... forstår jeg ikke. Er det en syntaxfejl?
<%
'Slutter database adgang til
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/data/bildTest.mdb")
Conn.Open DSN

strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files

'Erklærer handling
For Each objFileItem in objFolderContents
'Erklæring. Henter filer med specifik ext
if InStr(1, "gif,jpg,jpeg,png", LCase(objFSO.GetExtensionName(objFileItem.name))) > 0 then

'Erklæring. Valg af tabel i database og start af tilslutning af RS
RS = "Select * From bildArkiv"
Set rs = Conn.Execute(strSQL)
'Erklæring. Valg af post i database
if rs("filNavn")=objFileItem.name Then
'Meddelelse om at filen findes i db
Response.Write rs("Filen findes allerede")
'Gå derfor til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet
End if
'Hvis filen ikke findes så...

Else
    Response.Write ("Der indsættes følgende nye filer")

Response.write "<a href="
    Response.Write(objFileItem.Name)
    response.write ">"
    Response.Write(objFileItem.Name & "<br>")
    Response.write "</a>"
    strSQL = "Insert into bildArkiv (filNavn,dirNavn) values('" & objFileItem.name & "', '"  & objFolder & "')"
    Conn.Execute(strSQL)
end if
Next
%>
Linie 42 er if rs("filNavn")=objFileItem.name Then
og posten filNavn findes i db