slet hvis.....

Hej der.
Jeg kører følgende script:

d = now()
d = DateAdd("d",-30,d)

Set Conn = Server.CreateObject("ADODB.Connection") 
conn.open "DBQ=c:\inetpub\wwwroot\db\db.mdb;DefaultDir=c:\inetpub\wwwroot\db\;Driver={Microsoft Access Driver (*.mdb)};"

Set rs = Server.CreateObject("ADODB.Recordset")

SQLStmt = "DELETE FROM tabel WHERE dato < #" & d & "#" '

rs.Open SQLstmt,Conn,1,2

..men, den sletter ikke kun alt hvad der er over 30 dage gammel, den rydder simpelthen hele databasen!!

Er der nogen der kan hjælpe mig her???

meyer