erreur active X

j'ai probablement effac=E9 un fichier par erreur sur mon poste de
travail
Lorsque j'utilise une routine Access2000, access me retourne un message
d'erreur
"Un composant ActiveX ne peur cr=E9er l'Objet"

Sur mon portable ma base fonctionne correctement au niveau des
proc=E9dures et fonctions

merci de vos lumi=E8res

pasmar250659


Private Sub Commande122_Click()
On Error GoTo Err_Commande122_Click

Dim DbBaseDonn=E9es As Database
Dim DtNomsForm As Recordset
Dim dtNomsTab2 As Recordset

Set DbBaseDonn=E9es =3D DBEngine.Workspaces(0).Databases(0)
Set DtNomsForm =3D Screen.ActiveForm.RecordsetClone
Set dtNomsTab2 =3D DbBaseDonn=E9es.OpenRecordset("Signalit",
DB_OPEN_TABLE)
DtNomsForm.MoveLast
ann=E9e$ =3D Right$(Str$(Year(Now)), 4)
If Month(Now) < 10 Then
Mois$ =3D "0" + Right$(Str$(Month(Now)), 1)
Else
Mois$ =3D Right$(Str$(Month(Now)), 2)
End If
dtNomsTab2.MoveFirst
Xl_num =3D dtNomsTab2![NUMDOS]
DoCmd.GoToRecord , , A_NEWREC
DtNomsForm.AddNew
DtNomsForm![NUM_DOS] =3D ann=E9e$ + "/" + Mois$ + "/" +
Right$(Str$(Xl_num), 4)
DtNomsForm.Update

dtNomsTab2.Edit
dtNomsTab2![NUMDOS] =3D Xl_num + 1
dtNomsTab2.Update
dtNomsTab2.Close
Me![Modifiable123].SetFocus

Exit_Commande122_Click:
Exit Sub

Err_Commande122_Click:
MsgBox Err.Description=20
Resume Exit_Commande122_Click=20

End Sub