Data type mismatch in criteria expression

Jeg får en fejl når jeg prøver at køre koden herunder.
Det er en Data type mismatch in criteria expression fejl...
Hvad gør jeg forkert

  Set Rs = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("../../db/kunder.asp")
  Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
  Sql4 = "Select count(*) as Found from kunder where k_dep_belob=TRUE AND k_dep_betalt='nej'"
  Sql5 = "Select sum(k_dep_belob) as prisTotal from kunder where k_dep_belob=TRUE AND k_dep_betalt='nej'"
  Set Record =  Rs.Execute(Sql4)
' udskriver samenlægninger
  Ialt_dep = Record("found")
  %>
          <b>
          <% =ialt_dep %>
          </b>medlemmer at betale i alt
          <% Set Record =  Rs.Execute(Sql5) [HER OPSTÅR FEJLEN]
' udskriver samenlægninger
  Ialt_total = Record("prisTotal")%>
          <b>
          <% =Ialt_total %>