Active X manquants ?

Bonjour,
J'ai réalisé un petit formulaire basé sur une requête. J'en ai fait un
fichier MDE et Je l'ai installé sur les machines de mes collaborateurs. Il
fonctionne bien partout excepté sur une machine : où je reçois le message : «
L’expression sur ouverture entrée comme paramètre de la propriété de type
événement est à l’origine d’une erreur. Un composant Active X ne peut pas
créer un objet. »

Lors de son ouverture, le formulaire crée une reqûete. S'il j'enlève le code
qui s'occupe de la création de la requête, cela fonctionne. C'est donc
apparemment la création de la reqûete qui pose problème. J'ai fait un mdb
avec seulement le code ci-dessous et cela provoque l'erreur. J'ai désinstallé
et réinstallé ODE mais pas d'effet. Comment puis-je savoir quel fichier est
manquant ?
Merci pour votre aide

Private Sub Form_Open(Cancel As Integer)
Dim db As Database
Dim rs As Recordset
Dim rq As QueryDef
Dim sr As String
DoCmd.DeleteObject acQuery, "RQREP"
sr = "SELECT TB01.DATC, TB01.TEMPS, TB01.NOM FROM TB01;"
Set db = CurrentDb:
Set rq = db.CreateQueryDef("RQREP", sr)
End Sub