Aspupload & databas fel

Hej allihopa!
Jag har fått ett mysko fel på mitt blivande bildgalleri!
Felmeddelandet:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

/admin/page/upload2.asp, line 14

Line 14 är:
Recset("namn") = Request.Form("namn") i upload2.asp

Vad kan vara fel??
Fattar ingeting!

Här är koden, både upload funktionen och formuläret!

<form action="page/upload2.asp" method="post" enctype="multipart/form-data" name="form1" >
  <table width="100%" border="0" cellspacing="4" cellpadding="0" id="vanligtext">
    <tr> 
      <td colspan="2"><div id="sportrubrik">Ändra nyhet</div>
        <font color="#FF9900">
        </font></td>
    </tr>
    <tr> 
      <td width="60" valign="top">Rubrik:</td>
      <td width="109">  
        <input type="file" name="fil1" id="vanligtext">
        </td>
    </tr>
    <tr>
      <td valign="top">Bilden:</td>
      <td>
	  <input name="namn" type="text" id="vanligtext" size="20"></td>
    </tr>
    <tr> 
      <td width="60" valign="top"><p>Text:</p>        </td>
      <td width="109">  
        <textarea name="info" wrap="PHYSICAL" rows="10" class="textruta" id="vanligtext"></textarea>
		</td>
    </tr>
    <tr>
      <td valign="top">Kategori:</td>
      <td><select name="kategori" id="vanligtext">
	          

<%

Set RSkat = Server.CreateObject("Adodb.RecordSet")
Sql = "SELECT * FROM sport where lang = 'sv' "
Set RSkat= Connect.Execute(Sql)
Do until RSkat.EOF
%>
                 
                  <option value="<%=RSkat("ID")%>"><%=RSkat("namn")%></option>
                   <%
				RSkat.MoveNext
loop
RSkat.Close
%>
 </select>
	  
	  
	  
	  
	  </td>
    </tr>
    <tr> 
      <td width="60"></td>
      <td width="109">
        <input type="submit" name="Submit" value="Ändra" id="fettext">
        </td>
    </tr>
  </table>

</form>

<%
Set Upload = Server.CreateObject("Persits.Upload") 
Count = Upload.SaveVirtual("../../upload/img/")
Upload.OverwriteFiles = False

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("../../db/jsif.mdb") 
Set RecSet = Server.CreateObject("ADODB.Recordset") 
lol = "Select * FROM bild" 
RecSet.Open lol, connect, 3,3
       
    RecSet.addnew 
    Recset("namn") = Request.Form("namn") 
	Recset("kategori") = Request.Form("kategori") 
	Recset("info") = Request.Form("info") 
	Recset("datum") = date	
   RecSet("fil").Value = File.FileName 
    RecSet.Update 
  RecSet.Close 
      
    session("bildmess") = "Produkten är nu tillagt." 
     response.Redirect "default.asp?page=13"  
%>

Mvh Martin