Sökning

Hejsan. Varför funkar inte denna kod?

<%
Set Connect = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("\cgi-bin\skivtest_01.mdb")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
Set RecSet = Connnect.Execute("SELECT * FROM skivor WHERE field LIKE '%" & Request.QueryString("search") & "%'")
while not RecSet.EOF
RecSet.MoveNext
Wend
RecSet.Close
Connect.Close
set Connect = Nothing
%>

Förmodligen har jag väl missat någon dubbelfnutt eller någ liknande men nu blir jag snart tokig!
Jag får följande felmeddelande:

Körningsfel i Microsoft VBScript error '800a01a8'
Objekt krävs.: ''
/sokresultat.asp, line 14