Code vb

bonjour
voila j'ai fait une boucle qui appele une procedure

Function import()
Dim asdb As DAO.Database
Dim tbl As DAO.Recordset

Set db = CurrentDb
Set tbl = db.OpenRecordset("temporaire", dbOpenDynaset)


While Not tbl.EOF

mot = tbl("nom_serveur")

Do Until mot = ""

Call modif


Loop

Wend

End Function

ma fonction efface un a un les enrgistrement de la table temporaire
le problème c'est quan j'arrive au dernier il l'efface donc ca va
et ensuite le programme bug il met aucun enregistrement en cours

ce qui est normal a priori puisqui il n'y a plus
d'enregistrement
et yaurait til un moyen de faire une fenetre msg box
disant que c'est fini

mercii