Crea una conexión y en el método execute y luego pasá la consulta de eliminación. Algo así:
Dim con As New ADODB.Connection, CadenaDeConexion As String
CadenaDeConexion = "Lo que sea......."
con.Open CadenaDeConexion
con.Execute "delete * from NombreTabla"
con.Close
Set con = Nothing