Message d'erreur en vb6

lors de l'utilisation de la requète de suppression "Delete " en vb6 (Base de donnée Access) j'ai obtenus l'erreur suivant:
Erreur d'éxécution -2147217887(80040e21)
une opération en plusieurs étapes a généré des erreurs. Vérifier chaque valeur d'état...
Meeeeeeeeerci de m'aider .

Salut

Voila peut etre une piste pour demmarer ta recherche

http://support.microsoft.com/default.aspx/kb/q119471/

et

For x = 1 To 4
     Select Case x
     Case 1
       strCntName = "Forms"
       intConst = acForm
     Case 2
       strCntName = "Reports"
       intConst = acReport
     Case 3
       strCntName = "Scripts"
       intConst = acMacro
     Case 4
       strCntName = "Modules"
       intConst = acModule
     End Select

     Set cntContainer = db.Containers(strCntName)
     For Each doc In cntContainer.Documents
       strDocName = doc.Name

       '*****this should be one line
       DoCmd.TransferDatabase acImport, "Microsoft Access", strPath,
intConst, strDocName, strDocName

       'Debug.Print strDocName
       'for debugging, will list document names in debug window.
     Next doc
   Next x

   ' Successful - return True
   ImportDb = True


bon courage

Oups désolé j'ai pas mis de la reponse correspondant a ton messge.