Problem med DateDiff

Har problem med DateDiff av ngn anledning. Får fram felmeddelande:
error '80020009'

Koden för sidan status.inc

<%' kap 1 %>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; "&_
"Data Source="&Server.MapPath("db/anvandare.mdb")

SQL = "UPDATE anvandaren SET tid = '"&now&"' WHERE userid = '"&Session("userid")&"'"
Connection.Execute(SQL) 'Uppdaterar databasen

Connection.Close 'Stänger databasen
Set Connection = Nothing 'Frigör objektet
%>

<%' kap 2 %>
<%
Function online(userid)

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; "&_
"Data Source="&Server.MapPath("db/anvandare.mdb")

SQL = "SELECT * FROM anvandaren WHERE userid = '"&Session("userid")&"'"
Set RS = Connection.Execute(SQL)

If DateDiff("n", RS("tid"), Now) > 15 Then 'Här det koden som har problem

   online = 0 'Inte online
  Else
   online = 1 'Online
  End If
  RS.Close 'Stänger RecordSet
  Set RS = nothing 'Frigör objektet
  Connection.Close 'Stänger databasen
  Set Connection = nothing 'Frigör objektet
End Function
%>

<%' kap 3 %>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; "&_
"Data Source="&Server.MapPath("db/anvandare.mdb")

Userid = Session("userid") 'Här anger du vilken användare du vill kolla statusen på
If online(userid) = "1" Then 'Anropar funktionen
Response.Write("Online") 'Skriver ut "Online"
Else
Response.Write("Offline") 'Skriver ut "Offline"
End If

Connection.Close 'Stänger databasen
Set Connection = Nothing 'Frigör objektet
%>

<%' kap 4 %>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; "&_
"Data Source="&Server.MapPath("db/anvandare.mdb")

tid = DateAdd("n",-6,now) 'Minskar realtiden med 6 minuter
SQL = "UPDATE anvandaren SET tid = '"&tid&"' WHERE userid = '"&Session("userid")&"'" 'Uppdaterar databasen
connection.Execute(SQL) 'Uppdaterar databasen

connection.Close 'Stänger databasen
Set connection = Nothing 'Frigör objektet
%>