Hvad er der galdt i mit add-script?

Jeg får denne fejl:
Microsoft OLE DB Provider for ODBC Drivers fejl '80004005'

[Microsoft][ODBC Microsoft Access-driver]Der er en fejl i rækken.

/best/login/medlem/tilfoej.asp, linje 50

<---tilfoej.asp--->
<% response.Expires = 0 %>
<% response.Buffer = TRUE %>

<%
If Request.Form("Add") <> "" Then
    strError = ""
    strType = Trim(Request.Form("Type"))
    strFornavn = Trim(Request.Form("Fornavn"))
    strMellemnavn = Trim(Request.Form("Mellemnavn"))
    strEfternavn = Trim(Request.Form("Efternavn"))
    strGade = Trim(Request.Form("Gade"))
    strNr = Trim(Request.Form("Nr"))
    strPost = Trim(Request.Form("Post"))
    strBy = Trim(Request.Form("By"))
    strLand = Trim(Request.Form("land"))
    strBaad = Trim(Request.Form("Baad"))
   
    If Len(strType) = 0 Then
        strError = "Du skal skrive en medlemstype!"
    ElseIf Len(strEfternavn) = 0 Then
        strError = "Du skal minimum skrive medlemmets efternavn!"
    ElseIf Len(strGade) = 0 Then
        strError = "Du skal skrive et gade navn!"
    ElseIf Len(strNr) = 0 Then
        strError = "Du skal skrive et gade nummer!"
    ElseIf Len(strPost) = 0 Then
        strError = "Du skal skrive et gade postnummer!"
    ElseIf Len(strBy) = 0 Then
        strError = "Du skal skrive en by!"
   
    End If
        If Len(strError) = 0 Then

        Set rstemp = Server.CreateObject("ADODB.Recordset")
        strSQL = "SELECT * FROM medlem2002 WHERE (ID = 0)"
        strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../../log/bandholm.mdb")
        rstemp.Open strSQL, strDSN, 1, 3
        If (rstemp.BOF Or rstemp.EOF) Then
            rstemp.AddNew
            rstemp("Type") = RemoveHTML(strType)
            rstemp("Fornavn") = RemoveHTML(strFornavn)
            rstemp("Mellemnavn") = RemoveHTML(strMellemnavn)
            rstemp("Efternavn") = RemoveHTML(strEfternavn)
            rstemp("Gade") = RemoveHTML(strGade)
            rstemp("Nr") = RemoveHTML(strNr)
            rstemp("Post") = RemoveHTML(strPost)
            rstemp("By") = RemoveHTML(strBy)
            rstemp("Land") = RemoveHTML(strLand)
            rstemp("Baad") = RemoveHTML(strBaad)
linie 50  --->        rstemp.Update
        End If
        rstemp.Close
        Set rstemp = Nothing
        Response.Redirect("medlem.asp")
    Else
        strError = "<p><font face=verdana size=1 color=#FFFFFF><b>"& strError &"</b></font></p>"
        strMode = "add"
    End If
End If
%>
<!--#include file="function.asp"-->

<html>
<head>
<title>Bandholm Sejlklub - Bestyrelsen - Medlem - Tilføj</title>
<!--#include virtual = "/style.css"-->
</head>
<body>
<a href="java script:history.back(1);">Tilbage</a>

<h2><u>Tilføj medlem:</u></h2>

<br><center>

<table cellpadding=2 cellspacing=2 border=1 bordercolor=black class=format width="500">

 
  <tr>
    <td width="100%" colspan="3">
    <br>

<form method="POST" action="tilfoej.asp">
  <div align="center">
    <center>
    <table border="0" width="75%" cellspacing="0" cellpadding="0" height="223">
      <tr>
        <td width="100%" height="25"><%=strError%>
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">Medlemstype:</font><br>
    <select name="Type" tabindex="1" value="<%=strType%>">
    <option value="Familie">Familie</option>
    <option value="Aktiv">Aktiv</option>
    <option value="Passiv">Passiv</option>
    <option value="Æresmedlem">Æresmedlem</option>
    </select>
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">Fornavn:</font><br>
          <input type="text" name="Fornavn" size="28" class="box" tabindex="2" value="<%=strFornavn%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">Mellemnavn:</font><br>
          <input type="text" name="Mellemnavn" size="28" class="box" tabindex="3" value="<%=strMellemnavn%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">Efternavn:</font><br>
          <input type="text" name="Efternavn" size="28" class="box" tabindex="4" value="<%=strEfternavn%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">Gadenavn:</font><br>
          <input type="text" name="Gade" size="28" class="box" tabindex="5" value="<%=strGade%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">Husnummer:</font><br>
          <input type="text" name="Nr" size="28" class="box" tabindex="6" value="<%=strNr%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">Postnummer:</font><br>
          <input type="text" name="Post" size="28" class="box" tabindex="7" value="<%=strPost%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">By:</font><br>
          <input type="text" name="By" size="28" class="box" tabindex="8" value="<%=strBy%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">Land:</font><br>
          <input type="text" name="Land" size="28" class="box" tabindex="9" value="<%=strLand%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">Bådnavn:</font><br>
          <input type="text" name="Baad" size="28" class="box" tabindex="10" value="<%=strBaad%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="46"><br>
          <input type="submit" value="  Send  " name="Add" class="box" tabindex="11">&nbsp;&nbsp;
          <input type="button" value="  Fortryd  " name="Annuller" class="box" onClick="java script:location.href='medlem.asp'" tabindex="12">
        </td>
      </tr>
    </table>
    </center>
  </div>
</form>
<br></td></tr>


</table></div>
</body>
</html>