Fel på deletkod..

Har fastnat totalt. får fram det här felmeddelandet:
------------------
ADODB.Recordset error '800a0cb3'

The operation requested by the application is not supported by the provider.

/sfsdb/tabort.asp, line 10
--------------------

KODEN:

------------------------
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\Inetpub\cgi-bin\sfs\kunder.mdb")

Set rsKund = Server.CreateObject("ADODB.Recordset")
Set rsKund.ActiveConnection = objConn
Radera = "SELECT \* FROM Kunder WHERE KundID = " & Request.QueryString("delID") & " "

rsKund.Open Radera
rsKund.Delete

rsKund.Close
objConn.Close

%>

Kunden är raderad!!!

</table>
<p> </p>

<p><a href="kund.asp">Lägg till Kund</a> | <a href="logout.asp">Logga Ut</a> | <a href="faq.asp">Info om bokningssystemet</a><br>
<a href="datumsort.asp">Sök via datum </a> | <a href="namnsort.asp">Sök via efternamn (företag)</a> | <a href="psort.asp">Sök via efternamn (privat)</a> | <a href="visa.asp">Visa Alla</a></p>

</form>
----------------------------
Line 10 är: rsKund.Delete

Hämtar KundID från den här sidan:

--------------------------------
<table border="1" borderColor="black" cellPadding="2" cellSpacing="0" style="FONT-FAMILY: Arial; size: 8pt" valign="top">
<tr bgColor="#99ccff" borderColorDark="#ffffff" borderColorLight="#666666" vAlign="left" width="40%">
<td><font size="-2">RADERA</td>
<td><font size="-2">Namn</td>
<td><font size="-2">Företag</td>
<td><font size="-2">Ort</td>
<td><font size="-2">Tel</td>
<td><font size="-2">Kurs</td>
<td><font size="-2">Bana</td>
<td><font size="-2">Kurskostnad</td>
<td><font size="-2">Erlagt Kr</td>
<td><font size="-2" >Antal</td>
<td><font size="-2" >Datum</td>
<td><font size="-2" >Pass</td>

</tr>

<%
Set objConn = CreateObject("ADODB.Connection")
objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\Inetpub\cgi-bin\sfs\kunder.mdb")
SQL = ""

Set rsKund = CreateObject("ADODB.Recordset")
Set rsKund.ActiveConnection = objConn
Radera = "SELECT \* FROM Kunder Where PEfterNamn = '" & Request.QueryString("pnamn") & "' order by PNamn "
rsKund.Open Radera

Do While Not rsKund.EOF

%>

<tr>
<td width="44" align="center"><font size="-2"><A href="tabort.asp?delID=<% =rsKund("KundID")%>">RADERA</A></td>
<td width="110"><font size="-2"><A href="kunden.asp?kundid=<%= rsKund("KundID") %>"><%= rsKund("PNamn") & " " & rsKund("FNamn") & rsKund("PEfterNamn") & " " & rsKund("FEfterNamn")%></A></td>
<td width="110"><font size="-2"><%= rsKund("Foretag")%></td>
<td width="80"><font size="-2"><%= rsKund("POrt") & " " & rsKund("FOrt")%></td>
<td width="70"><font size="-2"><%= rsKund("PTel") & " " & rsKund("FTel")%></td>
<td width="110"><font size="-2"><%= rsKund("Kurs")%></td></font>
<td width="80"><font size="-2"><%= rsKund("Bana")%></td>
<td width="50" align="center"><font size="-2"><%= rsKund("KursKostnad")%>:-</td>
<td width="45" align="center"><font size="-2"><%= rsKund("ErlagtKr")%>:-</td>
<td width="30" align="center"><font size="-2"><%= rsKund("PAntal") & " " & rsKund("FAntal")%></td>
<td width="30" align="center"><font size="-2"><%= rsKund("KursDatum")%></td></font>
<td width="24" align="center"><font size="-2"><%= rsKund("Pass")%></td>

    \</tr\>

<%

	rsKund.MoveNext
Loop

    rsKund.close
set rsKund = Nothing
objConn.close
set objConn = Nothing

%>

</table>
<p> </p>

<p><a href="kund.asp">Lägg till Kund</a> | <a href="logout.asp">Logga Ut</a> | <a href="faq.asp">Info om bokningssystemet</a><br>
<a href="datumsort.asp">Sök via datum </a> | <a href="namnsort.asp">Sök via efternamn (företag)</a> | <a href="psort.asp">Sök via efternamn (privat)</a> | <a href="visa.asp">Visa Alla</a></p>
<p><input type="submit" value="Radera Markerade Kunder" name="Delete" style="background-image: url('delete.gif'); background-repeat: no-repeat; position: relative; width: 247; height: 34; border: 4 double #E9E9E9; padding-left: 8; background-position: left center"></p>
<INPUT TYPE=Hidden Name="RecordCount" VALUE="<%=I%>">
</form>

<script language="JavaScript">

function docprint() {
if (navigator.appName == "Netscape") {
window.print();
} else {
document.body.insertAdjacentHTML("beforeEnd", "<object id='PrHandle' width=0 height=0 classid='CLSID:8856F961-340A-11D0-A96B-00C04FD705A2'></object>");
PrHandle.ExecWB(6,2);
}
}
</script>
<form>
<input type="button" value="Skriv ut" onClick="docprint();">
</form>
-------------------------------------

/tack på förhand
/Hannu