Deleting Database Entry

I am having considerable difficulty figuring out how to delete more than one entry in my online database at a time. I thought I had it
Sub Delete()
SET Conn = SERVER.CREATEOBJECT("ADODB.Connection")
Conn.OPEN "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/db/database.mdb")
sqlWhere = ""
aSelected = request.form("Select")
sqlWhere = "ProspectId IN ('" & aSelected & "')"
sql = "Delete * from tblProspect where " & sqlWhere
Conn.Execute sql
Conn.Close
Set Conn = Nothing
RESPONSE.REDIRECT("prospects.asp")
End Sub