رسالة خطأ عند تشغيل البرنامج فى جهاز آخر فما الحل ؟؟؟؟؟

بسم الله الرحمن الرحيم

قمت بتصميم برنامج قاعدة بيانات طلاب مرتبط بقاعدة بيانات أكسس

يعمل على جهازى تمام ولكن عند نقله على جهاز آخر تظهر رسالة خطأ

RunTimeError '429

ActiveX Component cano't Create Object

وكود الفورم الذى تظهر فيه رسالة الخطأ

Dim Db As New ADODB.Connection
 Dim rs As New ADODB.Recordset


Private Sub Combo1_Click()
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM [user]where [ÇáãÓÊÎÏãíä] = '" & Trim(Combo1) & "' ", Db, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)



End If
End Sub

Private Sub Form_Load()
Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\data.mdb;Jet OLEDB:Database Password=123;"


rs.Open "SELECT * FROM [user] ", Db
Combo1.Clear
Do Until rs.EOF
	   Combo1.AddItem rs.Fields(0)
	   rs.MoveNext
   Loop

 Set rs = Nothing
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
	 KeyAscii = 0

If Text1.Text = "" Then
MsgBox "ÈÑÌÇÁ ÇÏÎÇá ßáãÉ ÇáãÑæÑ", vbCritical + vbMsgBoxRtlReading, "ÊäÈíå"
Else
If Text1.Text = Text2.Text Then
Form1.Show
Form1.Text4.Text = Text3.Text
Form1.StatusBar1.Panels(4) = "ÇÓã ÇáãÓÊÎÏã: " & Combo1.Text
Unload Me
Else

MsgBox "ÚÝæÇ ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ", vbCritical + vbMsgBoxRtlReading, "ÊäÈíå"

End If
End If





 End If

End Sub

Private Sub XPButton1_Click()

If Text1.Text = "" Then
MsgBox "ÈÑÌÇÁ ÇÏÎÇá ßáãÉ ÇáãÑæÑ", vbCritical + vbMsgBoxRtlReading, "ÊäÈíå"
Else
If Text1.Text = Text2.Text Then
Form1.Show
Form1.Text4.Text = Text3.Text
Form1.StatusBar1.Panels(4) = "ÇÓã ÇáãÓÊÎÏã: " & Combo1.Text
Unload Me
Else

MsgBox "ÚÝæÇ ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ", vbCritical + vbMsgBoxRtlReading, "ÊäÈíå"

End If
End If
End Sub

Private Sub XPButton2_Click()
Unload Me
End Sub

فما هى المكتبات المطلوب تضمينها مع البرنامج

ارجو الرد السريع

ولكم جزيل الشكر