codice corretto...ora funziona
grazie

codice:
<%
Dim oConn
Dim oRs
Set oConn = Server.CreateObject("ADOdb.Connection")

oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\mdb-database\MSSql14152.mdb")
oConn.Open 
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.ActiveConnection = oConn
oConn.Execute("DELETE FROM news WHERE ID=" & Request.QueryString("ID"))
Response.Redirect("gestionenews.asp")
%>