kan ikke slette... hvorfor ???

jeg har dette script, men det virker ikke...

--------------------------------------------------------

<% option explicit %>
<html><body>
<%
dim cn, sql

set cn = server.createobject("ADODB.Connection")
cn.open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data.mdb")

SQL = "DELETE Users.ID, Users.User, Users.Pass, Users.Niveau FROM Users WHERE (((Users.User)="Hans") AND ((Users.Pass)="qwert"));"

cn.execute SQL
cn.Close

set cn = Nothing
%>
</body></html>