ADODB.Connection.1 error '800a0bb9'

Har fått ett litet problem! hoppas nån kan hjälpa mig

Felmeddelande:

ADODB.Connection.1 error '800a0bb9' 

The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another. 

/booking/check_bokning.asp, line 13

på koden:

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
[B]<RAD 13>[/B] Connect.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/lundin.mdb"))

Set RecSet = Server.CreateObject("ADODB.Recordset")
list = "Select * from boka where stuga = '"&Request.QueryString("stuga")&"' and bokad = 2  order by artal,week"
RecSet.Open list, Connect, 1, 2 
 %>
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="30%" height="20"><div align="left"><strong><font size="-3" face="Verdana, Arial, Helvetica, sans-serif">&Aring;rtal</font></strong></div></td>
    <td width="32%"><div align="right"><strong><font size="-3" face="Verdana, Arial, Helvetica, sans-serif">Vecka</font></strong></div></td>
    <td> <div align="right"><strong><font size="-3" face="Verdana, Arial, Helvetica, sans-serif">Stuga</font></strong></div></td>
  </tr>
</table>
<hr width="450" />
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0">
  <% 
  if RecSet.Eof then
  Response.Write "Just nu finns det 52 veckor lediga"
  
  else
  Do Until RecSet.EOF %>
  <tr> 
    <td width="31%"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif"><%=RecSet("artal")%> 
      </font> <div align="center"></div>
      <div align="center"></div></td>
    <td width="27%"><div align="right"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif"><%=RecSet("week")%> 
        </font> </div>
      <div align="center"></div>
      <div align="center"></div></td>
    <td> <div align="right"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif"><%=RecSet("stuga")%> 
        </font> </div>
      <div align="center"></div>
      <div align="center"></div>
      <div align="right"></div></td>
  </tr>
  <% 
  RecSet.MoveNext
  Loop
  End If
  RecSet.Close
  Connect.Close
  
  Set RecSet = Nothing
  Set Connect = Nothing
  %>

Urk! Skippa Driver, kör Jet.OLEDB istället..

[red]Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("/db/lundin.mdb")[/red]

Nja kom ju på felet =)

brorsans webbhotell stödde inte Access, utan bara MySQL, så jag måste göra en ny databas