Opdater flere poster giver fejl

Har dette script:
<% Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Home\billeder.sejsgruppe.dk\inc\db\billeder.mdb;"
for each strFld in Request.Form
  ' FIND ALLE FELTER MED MED INDEKS 1 OG HENT UD
  ' FRA DERES ID DE TILHØRENDE FELTER...
  if left(strFld,6) = "felt1_" then
    strID = mid(strFld, 7)
    strFelt1 = Request.Form("felt1_" & strID)
    strFelt2 = Request.Form("felt2_" & strID)
    strFelt3 = Request.Form("felt3_" & strID)
    strFelt4 = Request.Form("felt4_" & strID)
    if Request.Form("felt5_" & strID) = "bestilling_ja" then
    strFelt5 = TRUE
    else
    strFelt5 = FALSE
    end if
    ' OPDATER RÆKKEN I TABELLEN FOR DET ANGIVNE ID
    strSQL = "UPDATE billeder SET " & _
          "  titel='" & strFelt1 & "'" & _
          ", fotograf='" & strFelt2 & "'" & _
          ", ref_kategori='" & strFelt3 & "' " & _
          ", beskrivelse='" & strFelt4 & "' " & _
          ", bestilling='" & strFelt5 & "' " & _
          "WHERE id = " & strID
    conn.execute strSQL
  end if
next
response.redirect "default.asp?side=interne&subside=Billeder" %>

Når det bliver kørt får jeg denne fejl:

Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/interne/billeder_eks/billeder_tilfoj_db3.asp, line 25

Line 25 er:    conn.execute strSQL

Lidt hjælp tak...