tu ne devrais pas utiliser de recordset.
tu déclare ta var SQL en string
puis tu écris ta requete
sql = " delete from telephone where ref_mod= modele.ref_mod and ref_mod= '" & var & "'"
conn.Execute sql
var =frmSaisie.grille.TextMatrix(frmSaisie.grille.Row, 0)
essaie ça