Exception occurred. error '80020009'

Hvad er der galt her? Jeg får denne fejle:

error '80020009'
Exception occurred.

Den siger at det er i denne linje:
If rs("lokalenr") <> 2 And TTime = RTime Then

Det er kommet efter at jeg har tilføjet et ekstra lokale til systemet. Før havde jeg kun 2 nu har jeg 3 og får så fejlen. Her er lidt mere kode:

function CStr2(Value)
  if Value < 10 then
    CStr2 = "0" & CStr(Value)
  else
    CStr2 = CStr(Value)
  end if
end function

TCnt = 7 ' Starttid
MCnt = 0 ' Startminutter

for Cnt = 1 to 33 ' Antal linier
  strtid = CStr2(TCnt) & ":" & CStr2(MCnt)
  TTime = TCnt * 100 + MCnt ' Tiden der skal udskrives nu

If session("Id") = 3 Then
  if not rs.EOF then
    start = rs("tid")
    RTime = Hour(start) * 100 + Minute(start) ' Tiden for næste aftale
  else
    RTime = 0
  end if
 
  If rs("lokalenr") <> 2 And TTime = RTime Then
    strKommentar = rs("kommentar") & " (<a href=""mailto:" & rs("mail") & """  class=""maillink"">" & rs("initialer") & "</a>, " & rs("firma") & ")"
    rs.movenext
  Else
    ' Check for frokostpause
  If session("Id") <> 2 Then
    if not booWeekend and (TTime >= 1130 and TTime <= 1300) then
      strKommentar = "Kantinen serverer frokost"
    else
      strTid = "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=" & strTid & """ style=""text-decoration: none"">" & strTid & "</a>"
      strKommentar = "&nbsp;"
    End If
  else
      strTid = "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=" & strTid & """ style=""text-decoration: none"">" & strTid & "</a>"
      strKommentar = "&nbsp;"
  End If
  End if
  SkrivLinie strTid, strKommentar
  ' Tiden i næste linie
  MCnt = MCnt + 30
  if (MCnt = 60) then
    MCnt = 0
    TCnt = TCnt + 1
  End If
End If