me sobró una linea, prueba asi:
id = Request.Form("id")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("prueba1.mdb"))
sql = "DELETE * FROM prueba1 WHERE id='" & id & "'"
Conn.Execute sql
response.write "Se ha eliminado el registro"
Conn.Close
set Conn=nothing
<div align=right><embed src="http://www.jesusdaniel.venezuela.com/jd.swf" height=25 width=200 wmode="transparent"></embed><br>
Usuario # 3359 en los foros</div>