hjælp til skrivning i access db

Hvad gør jeg galt her når jeg får dette smidt i hovedet:
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/write.asp, line 24


ASP - FILEN:

<% @LANGUAGE = VBScript %>
<%
If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
' Retrieving
strDato = Request.Form("dato")
strBeskrivelse = Request.Form("bes")
strAntal = Request.Form("antal")
strInd = Request.Form("ind")
strUdgift = Request.Form("ud")

%><!--#include file="writetodb.asp"--><%
Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=f:\Inetpub\wwwroot\sodavand.mdb;"
objConn.Open strConnection

Set objRS = Server.CreateObject("ADODB.Recordset")
' Skriver til Budget tablen
  objRS.CursorLocation = adUseServer
  objRS.CursorType = adOpenKeyset
  objRS.LockType = adLockOptimistic
  objRS.Open "Budget", objConn, , , adCmdTable
 
  objRS.AddNew
  objRS("dato") = strDato
  objRS("Beskrivelse") = strBeskrivelse
  objRS("Antal") = strAntal
  objRS("Saldo") = strUdgift
 
  objRS.Update
  objRS.Close

objConn.Close
Set objConn = Nothing

    Response.Write "Så er det gjort"

Else
%>
<html>
<head>
</head>
<body>

<form name="<%= Request.ServerVariables("SCRIPT_NAME") %>" method="post">
Dato: <input type="text" name="dato"><br>
Beskrivelse: <input type="text" name="bes"><br>
Antal: <input type="text" name="antal"><br>
Indtægt: <input type="text" name="ind"><br>
Udgift: <input type="text" name="ud"><br>
<input type="submit" value="send"><br>
</form>



</body>
</html>
<% End If %>