HJÆLLLPPPPPPP!!!!

Hej jeg har nu kæmpet med det samme i to dage og besluttet om at få hjælp da jeg snar skal aflevere min opgave til eksamen!!!
jeg lægger koden !!!

Denne fil sender in ID til deleteClient.asp:
  Set RSSQ = c.objConn.Execute(_
  "SELECT * FROM Clients WHERE " & WhereClause)
%>

<% ShowHeader "Search Results" %>
<table bgcolor=white width=100% cellspacing=0 cellpadding=5>
<%
NoResults = True
Do While Not RSSQ.EOF
  NoResults = False%>
<form method="POST" action="deleteClient.asp?id=<%=RSSQ("id")%>">
<tr><td><font size=4 color=navy>Client ID: <td><%=RSSQ("id")%></td></td></tr>
<tr><td><font size=4 color=navy>Name: <td><%=RSSQ("name")%></td></td></tr>
<tr><td><font size=4 color=navy>Surname:<font size=4 color=navy><td><%=RSSQ("surname")%></td></td></tr>
<tr><td><font size=4 color=navy>Address:<font size=4 color=navy><td><%=RSSQ("address")%></td></td></tr>
<tr><td><font size=4 color=navy>City: <td><%=RSSQ("city")%></td></td></tr>
<tr><td><font size=4 color=navy>Country:<td><%=RSSQ("country")%></td></td></tr>
<tr><td><font size=4 color=navy>Phone:<td><%=RSSQ("phone")%></td></td></tr>
<tr><td><font size=4 color=navy>Fax:<td><%=RSSQ("fax")%></td></td></tr>
<tr><td><font size=4 color=navy>E-mail:<td><%=RSSQ("email")%></td></td></tr>
<td><input type="submit" value="Delete a client"></td>
<%     
  RSSQ.MoveNext
Loop
c.closeConnection()
%>
</table>

</form>

<%
  If NoResults = True Then %>
Sorry, no records in the database matched your
search parameters. Click Back and try again.<p>
<%
  End If

%>

og deleteClient.asp:
<%
ShowHeader "Delete a client"

Dim Connect, RSSQ1, Query1, RSSQ,strid,c
DIM objConn,adOpenDynamic,adLockOptimistic

Function deleteClient()
  Set c = new DBConnection
  c.getConnection()
  strid= Request("id")
  Set RSSQ1 = Server.CreateObject("ADODB.Recordset")
  Query1 =    "DELETE * FROM Clients WHERE id= '" & strid & "'"
  RSSQ1.Open Query1, c.objConn, adOpenDynamic, adLockOptimistic
  RSSQ1.Delete
  If Not (RSSQ1.BOF Or RSSQ1.EOF) then
%>
<font size=5>The client has been cancelled.</font><p>
<a href="welcome.html">Back to Menu</a><p>
<% END IF
end Function
deleteClient()
c.closeConnection()
%>
værdien bliver overført rigtigt men jeg får denne fejl:

ADODB.Recordset fejl '800a0bb9'

Programmet benytter argumenter, som er af en forkert type, er uden for det acceptable område eller er i indbyrdes konflikt.

/fyp/administration/deleteClient.asp, linje 19

LINIE 19 er i deleteClient:
RSSQ1.Open Query1, c.objConn, adOpenDynamic, adLockOptimistic
hvad er der galt ???
hjææællllllppppp