I take it you want to delete multiple records...
if so, then try this...

code...

Set rst = dbs.OpenRecordset("SELECT * FROM rst _
WHERE rst.fieldname = '" & variable & "'", dbOpenDynaset)

dbs.Execute "DELETE * FROM " _
& "rst WHERE rst.fieldname = '" & variable & "'"