Con il codice che ho qui cancello la prima riga della tabella. Come faccio a cancellarle tutte?

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../Shortini.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Source = "Shortini"
Rs.ActiveConnection = Conn
Rs.CursorType = adOpenDynamic
Rs.LockType = 3
Rs.Open
Rs.Delete
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing


Potreste correggere il codice?
Grazie a tutti