Probleme avec VBA access

bonjour

j'ai creer un symple base des données pour la gestion des articles reparées dans une petit atelier.
j'ai taper les codes suivantes :
Private Sub Form_Load()
etq1.Caption = Date
list_anom.RowSource = "SELECT * From anomalie"
lst_dec_rep.RowSource = "SELECT * FROM decision"
lst_rap_rep.RowSource = "SELECT * FROM Rapport_rep"
End Sub

Private Sub save_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("Depannage", dbOpenDynaset)
With rst
.AddNew
!Date_entree = txt_date_in.Text
!Matricule_n_serie = txt_mat_ns.Text
!Anomalie = list_anom.Value
!Rapport_reparation = lst_rap_rep.Value
!Date_de_sortie = txt_date_out
!Decision_reparateur = lst_dec_rep
!Duree_intervention = txt_duree.Text
!DI = txt_di.Text
.Update
End With

End Sub

Private Sub txt_mat_ns_GotFocus()
txt_des.Caption = ""
txt_info.Caption = ""
txt_eqp.Caption = ""
End Sub

Private Sub txt_mat_ns_LostFocus()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim sql1 As String
x = txt_mat_ns.Text
sql1 = "SELECT * FROM sous_equipement WHERE (sous_equipement.Matricule_n_serie)='"
sql1 = sql1 & (txt_mat_ns.Text) & "';"
Set db = CurrentDb()
Set rst = db.OpenRecordset(sql1)
If rst.RecordCount = 0 Then GoTo x Else
txt_des.Caption = rst!Designation
txt_info.Caption = rst!info_comp
txt_eqp.Caption = rst!Equipement
GoTo y
x: msg = MsgBox("Article Entre pour la premier fois Vous Voulez la sair sur la base", vbYesNo)
If msg = vbYes Then Else txt_mat_ns.Text = ""
y: rst.Close
db.Close
End Sub

-----------------------
mais quand j'ai changé le PC rien ne marche et le probeleme suivante s'affiche...

"l'expresse sur chargement entrée comme parametre de type évenement est à l'origine d'une erreur.un probleme est survenu durant la communication entre microsoft access et le serveur OLE ou le controle active X"